Improve "Betriebsstelle nicht bekannt" handling1.28.2

1 files changed, 8 insertions, 0 deletions

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 4195001..046f947 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -1034,6 +1034,14 @@ sub startup {
 					my ( $route_data, $journey, $polyline ) = @_;
 
 					for my $station ( @{$route} ) {
+						if ( $station->[0]
+							=~ m{^Betriebsstelle nicht bekannt (\d+)$} )
+						{
+							my $eva = $1;
+							if ( $route_data->{$eva} ) {
+								$station->[0] = $route_data->{$eva}{name};
+							}
+						}
 						$station->[1]
 						  = $route_data->{ $station->[0] };
 					}