diff options
| -rwxr-xr-x | index.pl | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -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}, |