Commit 2ccac68c authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

show occupancy data if available

parent ba3d72eb

bin/efa-m

+14 −0
Original line number Diff line number Diff line
@@ -296,6 +296,20 @@ sub show_results { 
			$output_line[3]

			  = join( q{  }, map { $_->name_suf } $d->route_interesting );

		}

		elsif ( $d->occupancy ) {

			if ( $d->occupancy eq 'MANY_SEATS' ) {

				$output_line[3] = '_';

			}

			elsif ( $d->occupancy eq 'FEW_SEATS' ) {

				$output_line[3] = '*';

			}

			elsif ( $d->occupancy eq 'STANDING_ONLY' ) {

				$output_line[3] = '!';

			}

			else {

				$output_line[3] = '?';

			}

		}



		if ( $edata{fullroute} ) {

			$output_line[6]

lib/Travel/Status/DE/EFA.pm

+3 −1
Original line number Diff line number Diff line
@@ -437,11 +437,12 @@ sub results { 


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

		my $platform_name = $e->getAttribute('platformName');

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

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

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

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

		my $info          = $e_info->textContent;

		my $key           = $e_line->getAttribute('key');

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

		my $delay         = $e_info->getAttribute('delay');

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

		my $mot           = $e_line->getAttribute('motType');
@@ -498,6 +499,7 @@ sub results { 
				lineref       => $line_obj[0] // undef,

				line          => $line,

				destination   => $dest,

				occupancy     => $occupancy,

				countdown     => $countdown,

				info          => $info,

				delay         => $delay,

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

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


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

	qw(countdown date delay destination is_cancelled info key line lineref

	  mot platform platform_db platform_name sched_date sched_time time type)

	  mot occupancy operator platform platform_db platform_name sched_date sched_time time type)

);



my @mot_mapping = qw{