From 5b06acde2a2345524962c7e64d4696a0ce917883 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 17 Jul 2021 23:32:50 +0200
Subject: train details: annotate possibly bogus (schedule-only) times

---
 lib/DBInfoscreen/Helper/HAFAS.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'lib')

diff --git a/lib/DBInfoscreen/Helper/HAFAS.pm b/lib/DBInfoscreen/Helper/HAFAS.pm
index 4a3c3e7..2bef744 100644
--- a/lib/DBInfoscreen/Helper/HAFAS.pm
+++ b/lib/DBInfoscreen/Helper/HAFAS.pm
@@ -381,6 +381,17 @@ sub get_route_timestamps_p {
 						$ret->{$name}{rt_dep} = $ret->{$name}{sched_dep}
 						  ->clone->add( minutes => $delay->{ddelay} );
 					}
+					if (
+						(
+							defined $delay->{adelay}
+							and $delay->{adelay} eq q{}
+						)
+						or
+						( defined $delay->{ddelay} and $delay->{ddelay} eq q{} )
+					  )
+					{
+						$ret->{$name}{rt_bogus} = 1;
+					}
 				}
 			}
 
-- 
cgit v1.2.3