Commit 4b1936b7 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Result: Add train_no accessor

parent b0a353cc

lib/Travel/Status/DE/EFA.pm

+2 −0
Original line number Diff line number Diff line
@@ -443,6 +443,7 @@ sub results { 
		my $countdown     = $e->getAttribute('countdown');

		my $occupancy     = $e->getAttribute('occupancy');

		my $line          = $e_line->getAttribute('number');

		my $train_no      = $e_line->getAttribute('trainNum');

		my $dest          = $e_line->getAttribute('direction');

		my $info          = $e_info->textContent;

		my $key           = $e_line->getAttribute('key');
@@ -501,6 +502,7 @@ sub results { 
				key           => $key,

				lineref       => $line_obj[0] // undef,

				line          => $line,

				train_no      => $train_no,

				destination   => $dest,

				occupancy     => $occupancy,

				countdown     => $countdown,

lib/Travel/Status/DE/EFA/Result.pm

+7 −3
Original line number Diff line number Diff line
@@ -12,7 +12,7 @@ our $VERSION = '1.18'; 


Travel::Status::DE::EFA::Result->mk_ro_accessors(

	qw(countdown date delay destination is_cancelled info key line lineref

	  mot occupancy operator platform platform_db platform_name sched_date sched_time time type)

	  mot occupancy operator platform platform_db platform_name sched_date sched_time time train_no type)

);



my @mot_mapping = qw{
@@ -236,12 +236,12 @@ object. 


=item $departure->route_pre



List of stations the train passed (or will have passed) befoe this stop.

List of stations the vehicle passed (or will have passed) before this stop.

Each station is a Travel::Status::DE::EFA::Stop(3pm) object.



=item $departure->route_post



List of stations the train will pass after this stop.

List of stations the vehicle will pass after this stop.

Each station is a Travel::Status::DE::EFA::Stop(3pm) object.



=item $departure->sched_date
@@ -256,6 +256,10 @@ Scheduled departure time (HH:MM). 


Actual departure time (HH:MM).



=item $departure->train_no



Train number. Only defined if departure is a train.



=item $departure->type



Type of the departure.  Note that efa.vrr.de sometimes puts bogus data in this