Loading Changelog +4 −0 Changes for Changelog: 4 added lines, 0 removed lines. Original line number Diff line number Diff line git HEAD * Fix --track-via <stop> not matching trains changing their ID at <stop> Travel::Status::DE::IRIS 0.03 - Fri Feb 14 2014 * IRIS / db-iris: Add lookahead option Loading bin/db-iris +5 −1 Changes for bin/db-iris: 5 added lines, 1 removed line. Original line number Diff line number Diff line Loading @@ -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 ) Loading Loading
Changelog +4 −0 Changes for Changelog: 4 added lines, 0 removed lines. Original line number Diff line number Diff line git HEAD * Fix --track-via <stop> not matching trains changing their ID at <stop> Travel::Status::DE::IRIS 0.03 - Fri Feb 14 2014 * IRIS / db-iris: Add lookahead option Loading
bin/db-iris +5 −1 Changes for bin/db-iris: 5 added lines, 1 removed line. Original line number Diff line number Diff line Loading @@ -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 ) Loading