Mirrors/travelynx
2
0
Fork 0
mirror of https://github.com/derf/travelynx synced 2024-11-10 15:04:17 +00:00
Code Issues Projects Releases Packages Wiki Activity

allow filtering by train for external travelynx links

Browse source
This commit is contained in:
Daniel Friesel 2019-03-08 21:23:36 +01:00
parent 98fc5a3aba
commit 8c4df88032
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
index.pl
View file

@ -1236,6 +1236,7 @@ post '/logout' => sub {
get '/s/*station' => sub {
my ($self) = @_;
my $station = $self->stash('station');
my $train = $self->param('train');
my $status = get_departures($station);
@ -1251,6 +1252,11 @@ get '/s/*station' => sub {
map { [ $_, $_->departure->epoch // $_->sched_departure->epoch ] }
@results;
if ($train) {
@results
= grep { $_->type . ' ' . $_->train_no eq $train } @results;
}
$self->render(
'departures',
ds100 => $status->{station_ds100},