diff options
author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-03-29 16:42:24 +0100 |
---|---|---|
committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-03-29 16:42:47 +0100 |
commit | 0252ff2697d80c10c2932893995f0e77f85a38ec (patch) | |
tree | 36eba7f269cf07ce2daa7d0553c5a8f01dafe1c5 /lib/Travelynx.pm | |
parent | 84d6e23c494eea178cfe55c215ecec2b7c547195 (diff) |
pass train suffix (which is sometimes line ID) on to InTransit->add
Closes #217
Diffstat (limited to 'lib/Travelynx.pm')
-rwxr-xr-x | lib/Travelynx.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index ac64390..50f07de 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -559,11 +559,12 @@ sub startup { '_checkin_dbris_p' => sub { my ( $self, %opt ) = @_; - 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 $station = $opt{station}; + my $train_id = $opt{train_id}; + my $train_suffix = $opt{train_suffix}; + my $ts = $opt{ts}; + my $uid = $opt{uid} // $self->current_user->{id}; + my $db = $opt{db} // $self->pg->db; my $hafas; my $promise = Mojo::Promise->new; @@ -610,6 +611,7 @@ sub startup { backend_id => $self->stations->get_backend_id( dbris => 'bahn.de' ), + train_suffix => $train_suffix, ); }; if ($@) { |