Commit 6c733a1b authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

support lines without operator field

parent 2c239b7e

Changelog

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



    * Add -r, --relative option to use relative times

    * Support lines without Operator field (e.g. Aachen / ASEAG)



Travel::Status::DE::VRR 1.04 - Wed Oct 16 2013

lib/Travel/Status/DE/VRR.pm

+2 −2
Original line number Diff line number Diff line
@@ -237,7 +237,7 @@ sub lines { 
		my $e_route = ( $e->findnodes($xp_route) )[0];

		my $e_oper  = ( $e->findnodes($xp_oper) )[0];



		if ( not( $e_info and $e_oper ) ) {

		if ( not($e_info) ) {

			cluck( 'node with insufficient data. This should not happen. '

				  . $e->getAttribute('number') );

			next;
@@ -248,7 +248,7 @@ sub lines { 
		my $valid      = $e->getAttribute('valid');

		my $type       = $e_info->getAttribute('name');

		my $route      = ( $e_route ? $e_route->textContent : undef );

		my $operator   = $e_oper->textContent;

		my $operator   = ( $e_oper ? $e_oper->textContent : undef );

		my $identifier = $e->getAttribute('stateless');



		push(

lib/Travel/Status/DE/VRR/Line.pm

+2 −1
Original line number Diff line number Diff line
@@ -72,11 +72,12 @@ Name of the line, e.g. "U11", "SB15", "107". 
=item $line->operator



Operator of the line, as in the local transit company responsible for it.

May be undefined.



=item $line->route



Partial route of the line (as string), usually start and destination with two

stops in between.

stops in between. May be undefined.



Note that start means the actual start of the line, the stop requested by

Travel::Status::DE::VRR::Line may not even be included in this listing.