summaryrefslogtreecommitdiff
path: root/lib/Travelynx.pm
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2025-03-29 16:42:24 +0100
committerBirte Kristina Friesel <derf@finalrewind.org>2025-03-29 16:42:47 +0100
commit0252ff2697d80c10c2932893995f0e77f85a38ec (patch)
tree36eba7f269cf07ce2daa7d0553c5a8f01dafe1c5 /lib/Travelynx.pm
parent84d6e23c494eea178cfe55c215ecec2b7c547195 (diff)
pass train suffix (which is sometimes line ID) on to InTransit->add
Closes #217
Diffstat (limited to 'lib/Travelynx.pm')
-rwxr-xr-xlib/Travelynx.pm12
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 ($@) {