Unverified Commit 5807b0b7 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

hafas-m: Fall back to locationSearch if ajax-getstop.exe is unavailable

parent 69fab1ec

bin/hafas-m

+13 −0
Original line number Diff line number Diff line
@@ -176,6 +176,19 @@ sub show_similar_stops { 
		for my $c (@candidates) {

			printf( "%s (%s)\n", $c->{name}, $c->{id} );

		}

		return;

	}

	my $hafas = Travel::Status::DE::HAFAS->new(

		locationSearch => $opt{station},

		developer_mode => $developer_mode,

		service        => $service,

		language       => $language,

	);

	if ( $hafas->results ) {

		say 'You might want to try one of the following stops:';

		for my $r ( $hafas->results ) {

			printf( "%s (%s)\n", $r->name, $r->eva );

		}

	}

	return;

}