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

IRIS: Re-add support for stations unknown to T::S::DE::IRIS::Stations 

This fixes a regression introduced by 47f76da4

Closes #159

Journeys logged with travelynx v2.8.0 through 2.8.30 are affected by this bug
and will contain incorrect data even after applying this patch – it only
fixes data for new entries.

To Do: See if affected entries can be repaired with a DB migration
parent 60ce72a9

lib/Travelynx.pm

+8 −0
Original line number Diff line number Diff line
@@ -1409,6 +1409,14 @@ sub startup { 
					my ( $new_route, $journey, $polyline ) = @_;

					my $db_route;



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

						$self->stations->add_or_update(

							stop => $stop,

							db   => $db,

							iris => 1,

						);

					}



					for my $i ( 0 .. $#{$new_route} ) {

						my $old_name  = $route->[$i][0];

						my $old_eva   = $route->[$i][1];

lib/Travelynx/Helper/IRIS.pm

+8 −0
Original line number Diff line number Diff line
@@ -41,6 +41,10 @@ sub get_departures { 
	my @station_matches

	  = Travel::Status::DE::IRIS::Stations::get_station($station);



	if ( $station =~ m{ ^ \d+ $ }x ) {

		@station_matches = ( [ undef, undef, $station ] );

	}



	if ( @station_matches == 1 ) {

		$station = $station_matches[0][2];

		my $status = Travel::Status::DE::IRIS->new(
@@ -108,6 +112,10 @@ sub get_departures_p { 
	my @station_matches

	  = Travel::Status::DE::IRIS::Stations::get_station($station);



	if ( $station =~ m{ ^ \d+ $ }x ) {

		@station_matches = ( [ undef, undef, $station ] );

	}



	if ( @station_matches == 1 ) {

		$station = $station_matches[0][2];

		my $promise = Mojo::Promise->new;