summaryrefslogtreecommitdiff
path: root/cgi/index.pl
diff options
context:
space:
mode:
Diffstat (limited to 'cgi/index.pl')
-rw-r--r--cgi/index.pl12
1 files changed, 12 insertions, 0 deletions
diff --git a/cgi/index.pl b/cgi/index.pl
index 8558ec3..531ee5e 100644
--- a/cgi/index.pl
+++ b/cgi/index.pl
@@ -4,6 +4,7 @@ use Cache::File;
use List::MoreUtils qw(any);
use Travel::Status::DE::DeutscheBahn;
use Travel::Status::DE::IRIS;
+use Travel::Status::DE::IRIS::Stations;
use 5.014;
use utf8;
@@ -79,6 +80,17 @@ sub handle_request {
my @results = get_results_for( $backend, $station );
if ( not @results ) {
+ if ( $backend eq 'iris' ) {
+ my @candidates = map { [ "$_->[1] ($_->[0])", $_->[0] ] }
+ Travel::Status::DE::IRIS::Stations::get_station($station);
+ if (@candidates) {
+ $self->render(
+ 'multi',
+ stationlist => \@candidates,
+ hide_opts => 0
+ );
+ }
+ }
$self->render(
'multi',
error => "Got no results for '$station'",