make train details work up to 20 minutes into the past3.3.1

1 files changed, 10 insertions, 0 deletions

diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index bc2f054..9efe0c3 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -260,6 +260,13 @@ sub handle_request {
 		$opt{with_related} = 1;
 	}
 
+	if ($self->param('train')) {
+		# request results from five minutes ago to avoid train details suddenly
+		# becoming unavailable when its scheduled departure is reached.
+		$opt{datetime} = DateTime->now(time_zone => 'Europe/Berlin')->subtract(minutes => 20);
+		$opt{lookahead} = 200;
+	}
+
 	my $data   = get_results_for( $backend, $station, %opt );
 	my $errstr = $data->{errstr};
 
@@ -654,6 +661,9 @@ sub train_details {
 	$self->stash( title      => 'DBF' );
 	$self->stash( version    => $dbf_version );
 
+	$opt{datetime} = DateTime->now(time_zone => 'Europe/Berlin')->subtract(minutes => 20);
+	$opt{lookahead} = 200;
+
 	my $data   = get_results_for( 'iris', $station, %opt );
 	my $errstr = $data->{errstr};