From 0526f8880055fe4b559e857bd3b321bdc63ab525 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 23 Sep 2020 20:19:34 +0200
Subject: prominently show zuginfo.nrw links in train details

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

diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index 2013669..cba737c 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -411,6 +411,7 @@ sub format_hafas_result_info {
 sub render_train {
 	my ( $self, $result, $departure, $station_name, $template ) = @_;
 
+	$departure->{links}          = [];
 	$departure->{route_pre_diff} = [
 		$self->json_route_diff(
 			[ $result->route_pre ],
@@ -609,6 +610,15 @@ sub render_train {
 					if ( $message->{display} ) {
 						push( @him_messages,
 							[ $message->{header}, $message->{lead} ] );
+						if ( $message->{lead} =~ m{zuginfo.nrw/?\?msg=(\d+)} ) {
+							push(
+								@{ $departure->{links} },
+								[
+									"Großstörung",
+									"https://zuginfo.nrw/?msg=$1"
+								]
+							);
+						}
 					}
 				}
 				for my $message ( @{ $departure->{moreinfo} // [] } ) {
diff --git a/templates/_train_details.html.ep b/templates/_train_details.html.ep
index adfc5b4..3168852 100644
--- a/templates/_train_details.html.ep
+++ b/templates/_train_details.html.ep
@@ -114,6 +114,9 @@
 %     }
 %     elsif ($icetype and $icetype->[1] and $departure->{train_type} ne 'Bus') {
         <span class="disabledbutton"><i class="material-icons" aria-hidden="true">compare_arrows</i> Plan: <%= $icetype->[0] %></span>
+%     }
+%     for my $link (@{$departure->{links}}) {
+        <a class="smallbutton" href="<%= $link->[1] %>"><i class="material-icons" aria-hidden="true">warning</i> <%= $link->[0] %></a>
 %     }
     </div>
 
-- 
cgit v1.2.3