summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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},