From b0822cc5a59da117d39d4ad0b21665cfd9f57315 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 26 Nov 2019 20:04:14 +0100
Subject: Prune HAFAS messages which are already known from IRIS

---
 lib/DBInfoscreen/Controller/Stationboard.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lib/DBInfoscreen')

diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index 668fb71..1935c25 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -1034,6 +1034,12 @@ sub handle_request {
 								[ $message->{header}, $message->{lead} ] );
 						}
 					}
+					for my $message ( @{ $departures[-1]{moreinfo} // [] } ) {
+						my $m = $message->[1];
+						@him_messages
+						  = grep { $_->[0] !~ m{Information\. $m\.$} }
+						  @him_messages;
+					}
 					unshift( @{ $departures[-1]{moreinfo} }, @him_messages );
 				}
 			}
-- 
cgit v1.2.3