From b3d06a8eb4acdd951cbbbc3cc752faf84447bb5e Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 10 Jul 2022 20:07:02 +0200 Subject: HAFAS: Borders may be annotated as (Gr) or ...(...)Gr --- lib/Travelynx/Helper/HAFAS.pm | 4 ++-- 1 file 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 -- cgit v1.2.3