summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--index.pl10
1 files changed, 10 insertions, 0 deletions
diff --git a/index.pl b/index.pl
index c135f68..9b4b3ea 100644
--- a/index.pl
+++ b/index.pl
@@ -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