perltidy
This commit is contained in:
parent
ddbe902384
commit
048a5c1fd5
1 changed files with 10 additions and 7 deletions
17
index.pl
17
index.pl
|
@ -307,7 +307,7 @@ helper 'checkout' => sub {
|
|||
}
|
||||
|
||||
my ($train)
|
||||
= first { $_->train_id eq $train_id } @{ $status->{results} };
|
||||
= first { $_->train_id eq $train_id } @{ $status->{results} };
|
||||
if ( not defined $train ) {
|
||||
if ($force) {
|
||||
my $success = $self->app->checkout_query->execute(
|
||||
|
@ -317,8 +317,8 @@ helper 'checkout' => sub {
|
|||
name => $status->{station_name}
|
||||
),
|
||||
DateTime->now( time_zone => 'Europe/Berlin' )->epoch,
|
||||
undef, undef, undef, undef, undef,
|
||||
undef, undef, undef
|
||||
undef, undef, undef, undef, undef, undef,
|
||||
undef, undef
|
||||
);
|
||||
if ( defined $success ) {
|
||||
return;
|
||||
|
@ -348,7 +348,7 @@ helper 'checkout' => sub {
|
|||
join( '|', $train->route ),
|
||||
join( '|',
|
||||
map { ( $_->[0] ? $_->[0]->epoch : q{} ) . ':' . $_->[1] }
|
||||
$train->messages )
|
||||
$train->messages )
|
||||
);
|
||||
if ( defined $success ) {
|
||||
return;
|
||||
|
@ -484,7 +484,9 @@ helper 'get_user_travels' => sub {
|
|||
}
|
||||
);
|
||||
}
|
||||
elsif ( $action == $action_type{checkin} and $prev_action == $action_type{checkout} ) {
|
||||
elsif ( $action == $action_type{checkin}
|
||||
and $prev_action == $action_type{checkout} )
|
||||
{
|
||||
my $ref = $travels[-1];
|
||||
$ref->{from_name} = $name;
|
||||
$ref->{completed} = 1;
|
||||
|
@ -704,8 +706,9 @@ get '/*station' => sub {
|
|||
my @results = grep { $_->departure } @{ $status->{results} };
|
||||
|
||||
@results = map { $_->[0] }
|
||||
sort { $b->[1] <=> $a->[1] }
|
||||
map { [$_, $_->sched_departure->epoch // $_->departure->epoch] } @results;
|
||||
sort { $b->[1] <=> $a->[1] }
|
||||
map { [ $_, $_->sched_departure->epoch // $_->departure->epoch ] }
|
||||
@results;
|
||||
|
||||
$self->render(
|
||||
'departures',
|
||||
|
|
Loading…
Reference in a new issue