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 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lib')

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} // [] } ) {
-- 
cgit v1.2.3