PrivateCoffee/travelynx
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

index.pl: Fix mistaken usage of get_user_id

Browse source
This commit is contained in:
Daniel Friesel 2018-09-14 20:16:37 +02:00
parent b12b201c4d
commit 3198689286
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
index.pl
View file

@ -190,7 +190,7 @@ sub epoch_to_dt {
sub get_departures { sub get_departures {
my ( $station, $lookbehind ) = @_; my ( $station, $lookbehind ) = @_;
$lookbehind //= 20; $lookbehind //= 60;
my @station_matches my @station_matches
= Travel::Status::DE::IRIS::Stations::get_station($station); = Travel::Status::DE::IRIS::Stations::get_station($station);
@ -290,7 +290,7 @@ helper 'checkout' => sub {
if ( not defined $train ) { if ( not defined $train ) {
if ($force) { if ($force) {
my $success = $self->app->checkout_query->execute( my $success = $self->app->checkout_query->execute(
$self->app->get_user_id, $self->get_user_id,
$self->get_station_id( $self->get_station_id(
ds100 => $status->{station_ds100}, ds100 => $status->{station_ds100},
name => $status->{station_name} name => $status->{station_name}
@ -312,7 +312,7 @@ helper 'checkout' => sub {
} }
else { else {
my $success = $self->app->checkout_query->execute( my $success = $self->app->checkout_query->execute(
$self->app->get_user_id, $self->get_user_id,
$self->get_station_id( $self->get_station_id(
ds100 => $status->{station_ds100}, ds100 => $status->{station_ds100},
name => $status->{station_name} name => $status->{station_name}
@ -322,8 +322,8 @@ helper 'checkout' => sub {
$train->line_no, $train->line_no,
$train->train_no, $train->train_no,
$train->train_id, $train->train_id,
$train->sched_departure->epoch, $train->sched_arrival ? $train->sched_arrival->epoch : undef,
$train->departure->epoch, $train->arrival ? $train->arrival->epoch : undef,
join( '|', $train->route ), join( '|', $train->route ),
join( '|', join( '|',
map { ( $_->[0] ? $_->[0]->epoch : q{} ) . ':' . $_->[1] } map { ( $_->[0] ? $_->[0]->epoch : q{} ) . ':' . $_->[1] }