From e6b74ef0875dbdf555462ef7e719f2f8354c3d64 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <daniel.friesel@uos.de>
Date: Tue, 3 Mar 2020 18:29:37 +0100
Subject: show QoS pictograms in connection list

---
 lib/Travelynx.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lib')

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 3e8c101..aea9ac8 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -2869,6 +2869,13 @@ sub startup {
 			  sort { $a->[1] <=> $b->[1] }
 			  map { [ $_, $_->[0]->sched_departure->epoch ] } @cancellations;
 
+			for my $result (@results) {
+				my $train = $result->[0];
+				my @message_ids
+				  = List::Util::uniq map { $_->[1] } $train->raw_messages;
+				$train->{message_id} = { map { $_ => 1 } @message_ids };
+			}
+
 			return ( @results, @cancellations );
 		}
 	);
-- 
cgit v1.2.3