Commit 2d8bd1b9 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Do not include supersede-only messages in qos_messages

parent 0940b4a3

lib/Travel/Status/DE/IRIS/Result.pm

+7 −6
Original line number Diff line number Diff line
@@ -592,9 +592,10 @@ sub qos_messages { 
		}

		@ret = grep { $_->[2] != $msg->[2] } @ret;



		# 88 is "no qos shortcomings" and only required to filter previous

		# qos messages

		if ( $msg->[2] != 88 ) {

		# 88 is "no qos shortcomings" and only required to cancel previous qos

		# messages. Same for 84 ("correct wagon order") and 89 ("reservations

		# display is working again").

		if ( $msg->[2] != 84 and $msg->[2] != 88 and $msg->[2] != 89 ) {

			push( @ret, $msg );

		}

	}