From 970e30202dc1caa3f81f3351b4186d8cde3ddd97 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sun, 31 Mar 2024 14:44:37 +0200
Subject: HAFAS departures: add earlier / later links

---
 lib/Travelynx/Helper/HAFAS.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib/Travelynx/Helper')

diff --git a/lib/Travelynx/Helper/HAFAS.pm b/lib/Travelynx/Helper/HAFAS.pm
index 64f2949..6cbaf11 100644
--- a/lib/Travelynx/Helper/HAFAS.pm
+++ b/lib/Travelynx/Helper/HAFAS.pm
@@ -85,7 +85,9 @@ sub get_json_p {
 sub get_departures_p {
 	my ( $self, %opt ) = @_;
 
-	my $when = DateTime->now( time_zone => 'Europe/Berlin' )
+	my $when
+	  = ( $opt{timestamp}->clone
+		  // DateTime->now( time_zone => 'Europe/Berlin' ) )
 	  ->subtract( minutes => $opt{lookbehind} );
 	return Travel::Status::DE::HAFAS->new_p(
 		station    => $opt{eva},
-- 
cgit v1.2.3