summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-01-31 16:02:10 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-01-31 16:02:10 +0100
commit4327383413a75cf423becea43701df3d94ec3ff5 (patch)
treec99409faa0f45a8a52919bf94cb97ef1f3ffe930
parent5362de4786544f8a99a1ca17b715bb0a6010a2e8 (diff)
track-via: Show all times as scheduled, not as expected
-rwxr-xr-xbin/db-iris10
1 files changed, 5 insertions, 5 deletions
diff --git a/bin/db-iris b/bin/db-iris
index 4185d1c..9873807 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -267,12 +267,12 @@ for my $d ( $status->results() ) {
}
my $d_via = first { $_->train_id eq $d->train_id } $status_via->results;
if ( not $d_via
- or not $d_via->arrival
- or $d_via->arrival < $d->departure )
+ or not $d_via->sched_arrival
+ or $d_via->sched_arrival < $d->departure )
{
next;
}
- my $timestr_via = $d_via->arrival->strftime('%H:%M') . $delay;
+ my $timestr_via = $d_via->sched_arrival->strftime('%H:%M') . $delay;
$timestr = $d->time . ' → ' . $timestr_via;
$platformstr = sprintf( '%2s → %2s', $d->platform // q{},
$d_via->platform // q{} );
@@ -442,8 +442,8 @@ I<viastation> must match the station as contained in the train's route
Only show trains serving I<viastation> after I<station>. Show result
timestamps as "HH:MM -> HH:MM +x", where the first time is the scheduled
-departure (without delay) at I<station> and the second the expected arrival
-(delay included) at I<viastation>. If a delay is known, it will be indicated
+departure (without delay) at I<station> and the second the scheduled arrival
+(also withoyt delay) at I<viastation>. If a delay is known, it will be indicated
by +x.
Note that here, I<viastation> must be a regular station name or DS100 code.