Unverified Commit 24b08c5a authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

EFA: respect rt=1

parent 6116d951

lib/DBInfoscreen/Controller/Stationboard.pm

+9 −3
Original line number Original line Diff line number Diff line
@@ -360,7 +360,6 @@ sub get_results_p { 
		{

		{

			$service = $opt{efa};

			$service = $opt{efa};

		}

		}

		say "EFA $service";

		return Travel::Status::DE::EFA->new_p(

		return Travel::Status::DE::EFA->new_p(

			service     => $service,

			service     => $service,

			name        => $station,

			name        => $station,
@@ -1477,7 +1476,15 @@ sub handle_efa { 
	}

	}





	for my $result ( $efa->results ) {

	for my $result ( $efa->results ) {

		my $time     = $result->sched_datetime->strftime('%H:%M');

		my $time;



		if ( $show_realtime and $result->rt_datetime ) {

			$time = $result->rt_datetime->strftime('%H:%M');

		}

		else {

			$time = $result->sched_datetime->strftime('%H:%M');

		}



		my $linetype = $result->mot_name // 'bahn';

		my $linetype = $result->mot_name // 'bahn';

		if ( $linetype eq 's-bahn' ) {

		if ( $linetype eq 's-bahn' ) {

			$linetype = 'sbahn';

			$linetype = 'sbahn';
@@ -1494,7 +1501,6 @@ sub handle_efa { 
		elsif ( $linetype eq 'sonstige' ) {

		elsif ( $linetype eq 'sonstige' ) {

			$linetype = 'ext';

			$linetype = 'ext';

		}

		}

		say $result->line . " : $linetype";

		push(

		push(

			@departures,

			@departures,

			{

			{