summaryrefslogtreecommitdiff
path: root/lib/DBInfoscreen/Controller/Stationboard.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/DBInfoscreen/Controller/Stationboard.pm')
-rw-r--r--lib/DBInfoscreen/Controller/Stationboard.pm12
1 files changed, 9 insertions, 3 deletions
diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index f537064..93388fa 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -360,7 +360,6 @@ sub get_results_p {
{
$service = $opt{efa};
}
- say "EFA $service";
return Travel::Status::DE::EFA->new_p(
service => $service,
name => $station,
@@ -1477,7 +1476,15 @@ sub handle_efa {
}
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';
if ( $linetype eq 's-bahn' ) {
$linetype = 'sbahn';
@@ -1494,7 +1501,6 @@ sub handle_efa {
elsif ( $linetype eq 'sonstige' ) {
$linetype = 'ext';
}
- say $result->line . " : $linetype";
push(
@departures,
{