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 +++++++++++
 templates/_train_details.html.ep | 12 ++++++++++--
 2 files changed, 21 insertions(+), 2 deletions(-)

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;
+					}
 				}
 			}
 
diff --git a/templates/_train_details.html.ep b/templates/_train_details.html.ep
index 6ce9e43..f854279 100644
--- a/templates/_train_details.html.ep
+++ b/templates/_train_details.html.ep
@@ -199,7 +199,11 @@
             "><%= $stop->{sched_dep}->strftime('%H:%M') %> (heute <%= $stop->{rt_dep}->strftime('%H:%M') %>) <%= $stop->{name} %></a>
 %         }
 %         else {
-            "><%= $stop->{sched_dep} ? $stop->{sched_dep}->strftime('%H:%M') : q{} %> <%= $stop->{name} %></a>
+            "><%= $stop->{sched_dep} ? $stop->{sched_dep}->strftime('%H:%M') : q{} %>
+%            if ($stop->{rt_bogus}) {
+               <i class="material-icons" aria-label="Echtzeitdaten fehlen">gps_off</i>
+%            }
+             <%= $stop->{name} %></a>
 %         }
           </li>
 %       }
@@ -237,7 +241,11 @@
             "><%= $stop->{sched_arr}->strftime('%H:%M') %> (heute <%= $stop->{rt_arr}->strftime('%H:%M') %>) <%= $stop->{name} %></a>
 %         }
 %         else {
-            "><%= $stop->{sched_arr} ? $stop->{sched_arr}->strftime('%H:%M') : q{} %> <%= $stop->{name} %></a>
+            "><%= $stop->{sched_arr} ? $stop->{sched_arr}->strftime('%H:%M') : q{} %>
+%            if ($stop->{rt_bogus}) {
+               <i class="material-icons" aria-label="Echtzeitdaten fehlen">gps_off</i>
+%            }
+            <%= $stop->{name} %></a>
 %         }
           </li>
 %       }
-- 
cgit v1.2.3