From 86562f426d068b48849d0d268df179b46ed1a030 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 2 Jun 2019 17:54:06 +0200
Subject: Show HAFAS HIM messages in moreinfo

---
 lib/DBInfoscreen/Controller/Stationboard.pm | 13 ++++++++++++-
 templates/_train_details.html.ep            |  1 -
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index 758d370..5db9bbd 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -148,7 +148,7 @@ sub hafas_xml_req {
 
 	# <SDay text="... &gt; ..."> is invalid HTML, but present
 	# regardless. As it is the last tag, we just throw it away.
-	$body =~ s{<SDay .*}{</Journey>}s;
+	$body =~ s{<SDay [^>]*/>}{}s;
 
 	my $tree;
 
@@ -958,6 +958,17 @@ sub handle_request {
 						}
 					}
 				}
+				if ( $him and @{$him} ) {
+					$departures[-1]{messages}{him} = $him;
+					for my $message ( @{$him} ) {
+						if ( $message->{display} ) {
+							unshift(
+								@{ $departures[-1]{moreinfo} },
+								[ $message->{header}, $message->{lead} ]
+							);
+						}
+					}
+				}
 			}
 		}
 		else {
diff --git a/templates/_train_details.html.ep b/templates/_train_details.html.ep
index f4b9247..c61e1bf 100644
--- a/templates/_train_details.html.ep
+++ b/templates/_train_details.html.ep
@@ -97,7 +97,6 @@
 %       else {
 %=        $pair->[0]
 %       }
-        :
         <span class="reason">
 %=      $pair->[1]
         </span>
-- 
cgit v1.2.3