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

departures: show next / most recent departures first

Browse source
This commit is contained in:
Daniel Friesel 2018-10-27 07:32:37 +02:00
parent 95cbc500ae
commit ddbe902384
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
index.pl
View file

@ -213,7 +213,7 @@ sub get_departures {
lookbehind => 20,
datetime => DateTime->now( time_zone => 'Europe/Berlin' )
->subtract( minutes => $lookbehind ),
lookahead => $lookbehind + 20,
lookahead => $lookbehind + 10,
);
return {
results => [ $status->results ],
@ -700,10 +700,13 @@ get '/*station' => sub {
$self->render( 'landingpage', error => $status->{errstr} );
}
else {
my @results = sort { $a->line cmp $b->line } @{ $status->{results} };
# You can't check into a train which terminates here
@results = grep { $_->departure } @results;
my @results = grep { $_->departure } @{ $status->{results} };
@results = map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
map { [$_, $_->sched_departure->epoch // $_->departure->epoch] } @results;
$self->render(
'departures',
ds100 => $status->{station_ds100},