diff options
Diffstat (limited to 'lib/Travel')
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 9 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Result.pm | 4 |
2 files changed, 9 insertions, 4 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 803ab38..94b9856 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -445,9 +445,12 @@ sub get_realtime { my $msgid = $e_m->getAttribute('id'); my $ts = $e_m->getAttribute('ts'); - # 0 and 1 (with key "f") are related to canceled trains and - # do not appear to hold information - if ( defined $value and $value > 1 ) { + # 0 and 1 (with key "f") are related to canceled trains and + # do not appear to hold information (or at least none we can access). + # All observed cases of message ID 900 were related to bus + # connections ("Anschlussbus wartet"). We can't access which bus + # it refers to, so we don't show that either. + if ( defined $value and $value > 1 and $value != 900 ) { $messages{$msgid} = [ $ts, $type, $value ]; } } diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index adba3c1..d5efd2c 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -99,7 +99,9 @@ my %translation = ( 98 => 'Sonstige Qualitätsmängel', 99 => 'Verzögerungen im Betriebsablauf', - #900 => 'Anschlussbus wartet(?)', + # Occasionally, there's a message with ID 900. In all cases observed so far, + # it was used for "Anschlussbus wartet". However, as we don't know which bus + # it refers to, we don't show it to users. ); Travel::Status::DE::IRIS::Result->mk_ro_accessors( |