summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2019-03-08 21:23:36 +0100
committerDaniel Friesel <derf@finalrewind.org>2019-03-08 21:23:36 +0100
commit8c4df88032fbea46e2d95f5ac716d26fbf982c54 (patch)
treed4abafea809c1c8801ccee3348558a597529d0f7
parent98fc5a3aba2ad4e95607405f424a2e1e5e12cb4e (diff)
allow filtering by train for external travelynx links
-rwxr-xr-xindex.pl8
1 files changed, 7 insertions, 1 deletions
diff --git a/index.pl b/index.pl
index d0bba0e..78719f5 100755
--- a/index.pl
+++ b/index.pl
@@ -1234,8 +1234,9 @@ post '/logout' => sub {
};
get '/s/*station' => sub {
- my ($self) = @_;
+ 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},