summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2018-12-26 10:05:47 +0100
committerDaniel Friesel <derf@finalrewind.org>2018-12-26 10:05:47 +0100
commitfe4d698481f75a98f9ad9e069aa86431921ce864 (patch)
tree9cba5557a5d33955e1f8c61ef06f7398439db60c
parent670f44d27dd4c570baaf58f6992cecbde2688420 (diff)
Ignore (apparently useless) ZOB stations entirely
-rw-r--r--lib/Travel/Status/DE/IRIS.pm18
1 files changed, 7 insertions, 11 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index 830c0b5..db96b21 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -213,17 +213,6 @@ sub get_station {
push( @seen, $station );
$iter_depth++;
- if ($station eq '8089317') {
- # "München Hbf" (8000261) references "München ZOB (Hackerbrücke)"
- # (8089317), which in turn references "München Hackerbrücke"
- # (8004129)... which is a different station altogether and for added
- # confusion has overlapping lines with München Hbf.
- #
- # To work around this, skip München ZOB (Hackerbrücke) entirely
- # for now.
- next;
- }
-
my ( $raw, $err )
= $self->get_with_cache( $self->{main_cache},
$self->{iris_base} . '/station/' . $station );
@@ -263,6 +252,13 @@ sub get_station {
push( @seen, $station_node->getAttribute('eva') );
+ if ( $station_node->getAttribute('name') =~ m{ ZOB} ) {
+
+ # There are no departures from a ZOB ("Zentraler Omnibus-Bahnhof" /
+ # Central Omnibus Station). Ignore it entirely.
+ next;
+ }
+
push(
@ret,
{