Commit eeb77711 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

IRIS backend: try get_station first

parent 3de321ae

index.pl

+10 −0
Original line number Diff line number Diff line
@@ -33,6 +33,16 @@ sub get_results_for { 


	if ( not $results ) {

		if ( $backend eq 'iris' ) {



			# requests with DS100 codes should be preferred (they avoid

			# encoding problems on the IRIS server). However, only use them

			# if we have an exact match. Ask the backend otherwise.

			my @station_matches

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

			if ( @station_matches == 1 ) {

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

			}



			my $status = Travel::Status::DE::IRIS->new(

				station      => $station,

				serializable => 1