Commit 7a24a7d8 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

support UIC codes

parent 4e906718

Changelog

+1 −0
Original line number Original line Diff line number Diff line 
git HEAD

git HEAD





    * Result: Add qos code 79 ("Ohne Mehrzweckabteil")

    * Result: Add qos code 79 ("Ohne Mehrzweckabteil")

    * db-iris: Accept UIC station codes





Travel::Status::DE::IRIS 1.03 - Tue Sep 15 2015

Travel::Status::DE::IRIS 1.03 - Tue Sep 15 2015

bin/db-iris

+4 −0
Original line number Original line Diff line number Diff line
@@ -141,6 +141,10 @@ sub get_departure { 
sub get_station {

sub get_station {

	my ($input_name) = @_;

	my ($input_name) = @_;





	if ( $input_name =~ m{ ^ [[:digit:]]+ $ }x ) {

		return $input_name;

	}



	my @stations = Travel::Status::DE::IRIS::Stations::get_station($input_name);

	my @stations = Travel::Status::DE::IRIS::Stations::get_station($input_name);





	if ( @stations == 0 ) {

	if ( @stations == 0 ) {

lib/Travel/Status/DE/IRIS.pm

+1 −0
Original line number Original line Diff line number Diff line
@@ -67,6 +67,7 @@ sub new { 




	$self->{station}      = $opt{station};

	$self->{station}      = $opt{station};

	$self->{station_code} = $station_node->getAttribute('eva');

	$self->{station_code} = $station_node->getAttribute('eva');

	$self->{station_name} = $station_node->getAttribute('name');





	my $dt_req = $self->{datetime}->clone;

	my $dt_req = $self->{datetime}->clone;

	for ( 1 .. 3 ) {

	for ( 1 .. 3 ) {