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

DBRIS: Support short IDs (A=1@L=eva)

parent df27058a

lib/Travelynx/Controller/Traveling.pm

+1 −1
Original line number Diff line number Diff line
@@ -1340,7 +1340,7 @@ sub station { 
			}



			my $connections_p;

			if ( $trip_id and $hafas_service ) {

			if ( $trip_id and ( $dbris_service or $hafas_service ) ) {

				@results = grep { $_->id eq $trip_id } @results;

			}

			elsif ( $train and not $hafas_service ) {

lib/Travelynx/Helper/DBRIS.pm

+1 −1
Original line number Diff line number Diff line
@@ -69,7 +69,7 @@ sub get_departures_p { 


	my $agent = $self->{user_agent};



	if ( $opt{station} =~ m{ [@] L = (?<eva> \d+ ) [@] }x ) {

	if ( $opt{station} =~ m{ [@] L = (?<eva> \d+ ) }x ) {

		$opt{station} = {

			eva => $+{eva},

			id  => $opt{station},