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

IRIS backend: Use dropdown menu to narrow down stations

parent a750d073

cgi/index.pl

+12 −0
Original line number Diff line number Diff line
@@ -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'",

cgi/templates/layouts/default.html.ep

+5 −0
Original line number Diff line number Diff line
@@ -362,7 +362,12 @@ 
  <div class="field">

    <div class="desc">Station name</div>

    <div>

% if (stash('stationlist')) {

      %= select_field station => stash('stationlist')

% }

% else {

      %= text_field 'station'

% }

      %= submit_button 'Display'

    </div>

  </div>