Use the correct stop instance when checking in to ring lines

This commit is contained in:
Birte Kristina Friesel 2024-10-28 20:25:18 +01:00
parent 481c49a3c2
commit 9b6b310e2e
No known key found for this signature in database
GPG key ID: 19E6E524EBB177BA
2 changed files with 13 additions and 3 deletions

View file

@ -441,6 +441,7 @@ sub startup {
my $station = $opt{station};
my $train_id = $opt{train_id};
my $ts = $opt{ts};
my $uid = $opt{uid} // $self->current_user->{id};
my $db = $opt{db} // $self->pg->db;
my $hafas;
@ -534,6 +535,7 @@ sub startup {
my $station = $opt{station};
my $train_id = $opt{train_id};
my $ts = $opt{ts};
my $uid = $opt{uid} // $self->current_user->{id};
my $db = $opt{db} // $self->pg->db;
my $hafas;
@ -553,7 +555,13 @@ sub startup {
or $stop->loc->eva == $station )
{
$found = $stop;
last;
# Lines may serve the same stop several times.
# Keep looking until the scheduled departure
# matches the one passed while checking in.
if ( $ts and $stop->sched_dep->epoch == $ts ) {
last;
}
}
}
if ( not $found ) {

View file

@ -650,7 +650,8 @@ sub travel_action {
return $self->checkin_p(
hafas => $params->{hafas},
station => $params->{station},
train_id => $params->{train}
train_id => $params->{train},
ts => $params->{ts},
);
}
)->then(
@ -789,7 +790,8 @@ sub travel_action {
$self->checkin_p(
hafas => $params->{hafas},
station => $params->{station},
train_id => $params->{train}
train_id => $params->{train},
ts => $params->{ts},
)->then(
sub {
$self->render(