Unverified Commit fc9562f7 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Improve "Betriebsstelle nicht bekannt" handling

parent 5de6dfb4

lib/Travelynx.pm

+8 −0
Original line number Diff line number Diff line
@@ -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] };

					}

lib/Travelynx/Helper/HAFAS.pm

+3 −1
Original line number Diff line number Diff line
@@ -124,7 +124,9 @@ sub get_route_timestamps_p { 
			my $station_is_past = 1;

			for my $stop ( $journey->route ) {

				my $name = $stop->{name};

				$ret->{$name} = {

				$ret->{$name} = $ret->{ $stop->{eva} } = {

					name        => $stop->{name},

					eva         => $stop->{eva},

					sched_arr   => _epoch( $stop->{sched_arr} ),

					sched_dep   => _epoch( $stop->{sched_dep} ),

					rt_arr      => _epoch( $stop->{rt_arr} ),