diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index 9121cd9..f6e47a3 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -1528,29 +1528,34 @@ sub startup { for my $station (@route_after) { if ( @{$station} > 1 ) { - # Note: $station->[1]{sched_arr} may already have been - # converted to a DateTime object in $station->[1] is - # $dep_info. This can happen when a station is present - # several times in a train's route, e.g. for Frankfurt - # Flughafen in some nightly connections. + # Note: $station->[1]{sched_arr} may already have been + # converted to a DateTime object. This can happen when a + # station is present several times in a train's route, e.g. + # for Frankfurt Flughafen in some nightly connections. my $times = $station->[1]; if ( $times->{sched_arr} and ref( $times->{sched_arr} ) ne 'DateTime' ) { $times->{sched_arr} = epoch_to_dt( $times->{sched_arr} ); - $times->{rt_arr} = epoch_to_dt( $times->{rt_arr} ); - $times->{rt_arr_countdown} - = $times->{rt_arr}->epoch - $epoch; + if ( $times->{rt_arr} ) { + $times->{rt_arr} + = epoch_to_dt( $times->{rt_arr} ); + $times->{rt_arr_countdown} + = $times->{rt_arr}->epoch - $epoch; + } } if ( $times->{sched_dep} and ref( $times->{sched_dep} ) ne 'DateTime' ) { $times->{sched_dep} = epoch_to_dt( $times->{sched_dep} ); - $times->{rt_dep} = epoch_to_dt( $times->{rt_dep} ); - $times->{rt_dep_countdown} - = $times->{rt_dep}->epoch - $epoch; + if ( $times->{rt_dep} ) { + $times->{rt_dep} + = epoch_to_dt( $times->{rt_dep} ); + $times->{rt_dep_countdown} + = $times->{rt_dep}->epoch - $epoch; + } } } } diff --git a/templates/_checked_in.html.ep b/templates/_checked_in.html.ep index dcf9ddc..2a6ac1d 100644 --- a/templates/_checked_in.html.ep +++ b/templates/_checked_in.html.ep @@ -225,6 +225,9 @@ % elsif ($station->[1]{rt_arr}) { <%= $station->[1]{rt_arr}->strftime('%H:%M') %> % } + % elsif ($station->[1]{sched_arr}) { + <%= $station->[1]{sched_arr}->strftime('%H:%M') %> + % } % elsif ($station->[2] and $station->[2] eq 'additional') { Zusatzhalt % } @@ -331,6 +334,9 @@ % elsif ($station->[1]{rt_arr}) { <%= $station->[1]{rt_arr}->strftime('%H:%M') %> % } + % elsif ($station->[1]{sched_arr}) { + <%= $station->[1]{sched_arr}->strftime('%H:%M') %> + % } % elsif ($station->[2] and $station->[2] eq 'additional') { Zusatzhalt % }