request wagon orders for HAFAS checkins

This commit is contained in:
Birte Kristina Friesel 2024-05-29 21:49:31 +02:00
parent 1ad8fa3a51
commit 85c7861bc1
No known key found for this signature in database
GPG key ID: 19E6E524EBB177BA
2 changed files with 19 additions and 3 deletions

View file

@ -633,6 +633,10 @@ sub startup {
# mustn't be called during a transaction
if ( not $opt{in_transaction} ) {
$self->run_hook( $uid, 'checkin' );
if ( $journey->class <= 16 ) {
$self->app->add_wagonorder( $uid, 1, $journey->id,
$found->sched_dep, $journey->number );
}
}
$promise->resolve($journey);
@ -1232,7 +1236,7 @@ sub startup {
my $db = $self->pg->db;
if ($sched_departure) {
if ( $sched_departure and $train_no ) {
$self->dbdb->has_wagonorder_p( $sched_departure, $train_no )
->then(
sub {

View file

@ -60,7 +60,7 @@ sub run {
return;
}
if ( $found_dep->{rt_dep} ) {
if ( $found_dep->rt_dep ) {
$self->app->in_transit->update_departure_hafas(
uid => $uid,
journey => $journey,
@ -68,9 +68,15 @@ sub run {
dep_eva => $dep,
arr_eva => $arr
);
if ( $journey->class <= 16
and $found_dep->rt_dep->epoch > $now->epoch )
{
$self->app->add_wagonorder( $uid, 1, $train_id,
$found_dep->sched_dep, $journey->number );
}
}
if ( $found_arr and $found_arr->{rt_arr} ) {
if ( $found_arr and $found_arr->rt_arr ) {
$self->app->in_transit->update_arrival_hafas(
uid => $uid,
journey => $journey,
@ -78,6 +84,12 @@ sub run {
dep_eva => $dep,
arr_eva => $arr
);
if ( $journey->class <= 16
and $now->epoch - $found_dep->rt_arr->epoch > 600 )
{
$self->app->add_wagonorder( $uid, 0, $train_id,
$found_dep->sched_dep, $journey->number );
}
}
}
)->catch(