diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2022-07-10 20:07:02 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2022-07-10 20:07:02 +0200 |
| commit | b3d06a8eb4acdd951cbbbc3cc752faf84447bb5e (patch) | |
| tree | 496234ac66d711613fcdddf4e03c7fd624ebf71e /lib/Travelynx/Helper | |
| parent | 86e01086495d366b97a8f4cfef784ad5f3c2b92c (diff) | |
HAFAS: Borders may be annotated as (Gr) or ...(...)Gr
Diffstat (limited to 'lib/Travelynx/Helper')
| -rw-r--r-- | lib/Travelynx/Helper/HAFAS.pm | 4 |
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 |