diff options
author | Daniel Friesel <derf@finalrewind.org> | 2018-12-16 11:04:34 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2018-12-16 11:04:34 +0100 |
commit | ea5aab03fc83b49143dda9a430e59f4fa78a6771 (patch) | |
tree | 86ca7000d32887ec3b5deda694f8a2f2a9c14b6a | |
parent | b1d57132ff46628cae1804b450fa989e8e04b28e (diff) |
route_interesting: Add .hl.n. (czech main station)
-rw-r--r-- | lib/Travel/Status/DE/IRIS/Result.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index 530aab1..d6ae398 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -683,8 +683,11 @@ sub route_interesting { my ( @via_main, @via_show, $last_stop ); $max_parts //= 3; + # Centraal: dutch main station (Hbf in .nl) + # HB: swiss main station (Hbf in .ch) + # hl.n.: czech main station (Hbf in .cz) for my $stop (@via) { - if ( $stop =~ m{ HB $ | Hbf | Centraal | Flughafen }x ) { + if ( $stop =~ m{ HB $ | hl\.n\. $ | Hbf | Centraal | Flughafen }x ) { push( @via_main, $stop ); } } |