diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/db-iris | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/bin/db-iris b/bin/db-iris index ffd70bf..f1bff19 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -302,7 +302,11 @@ for my $d ( $status->results() ) { if ( not $d->departure ) { next; } - my $d_via = first { $_->train_id eq $d->train_id } $status_via->results; + my $d_via = first { + $_->train_id eq $d->train_id + or ( $_->old_train_id and $_->old_train_id eq $d->train_id ); + } + $status_via->results; if ( not $d_via or not $d_via->sched_arrival or $d_via->sched_arrival < $d->departure ) |