Commit b0822cc5 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Prune HAFAS messages which are already known from IRIS

parent afcbe927

lib/DBInfoscreen/Controller/Stationboard.pm

+6 −0
Original line number Diff line number Diff line
@@ -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 );

				}

			}