summaryrefslogtreecommitdiff
path: root/lib/Travelynx
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2022-07-10 20:07:02 +0200
committerDaniel Friesel <derf@finalrewind.org>2022-07-10 20:07:02 +0200
commitb3d06a8eb4acdd951cbbbc3cc752faf84447bb5e (patch)
tree496234ac66d711613fcdddf4e03c7fd624ebf71e /lib/Travelynx
parent86e01086495d366b97a8f4cfef784ad5f3c2b92c (diff)
HAFAS: Borders may be annotated as (Gr) or ...(...)Gr
Diffstat (limited to 'lib/Travelynx')
-rw-r--r--lib/Travelynx/Helper/HAFAS.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Travelynx/Helper/HAFAS.pm b/lib/Travelynx/Helper/HAFAS.pm
index a248548..383b3bd 100644
--- a/lib/Travelynx/Helper/HAFAS.pm
+++ b/lib/Travelynx/Helper/HAFAS.pm
@@ -82,11 +82,11 @@ sub get_polyline_p {
$cache->freeze( $url, $ret );
- # borders ("(Gr)" as in "Grenze") are only returned by HAFAS.
+ # borders (Gr" as in "Grenze") are only returned by HAFAS.
# They are not stations.
my $iris_stations = join( '|', $train->route );
my $hafas_stations
- = join( '|', grep { $_ !~ m{\(Gr\)$} } @station_list );
+ = join( '|', grep { $_ !~ m{(\(Gr\)|\)Gr)$} } @station_list );
# Do not return polyline if it belongs to an entirely different
# train. Trains with longer routes (e.g. due to train number