summaryrefslogtreecommitdiff
path: root/lib/Travelynx.pm
diff options
context:
space:
mode:
authorDaniel Friesel <daniel.friesel@uos.de>2020-03-03 18:29:37 +0100
committerDaniel Friesel <daniel.friesel@uos.de>2020-03-03 18:29:37 +0100
commite6b74ef0875dbdf555462ef7e719f2f8354c3d64 (patch)
treedc597a8d9c3450e578fc21d84b65707f91109afb /lib/Travelynx.pm
parentadaf9f7c0c6a7a54d0730f94eee13e263c69ba9c (diff)
show QoS pictograms in connection list1.15.5
Diffstat (limited to 'lib/Travelynx.pm')
-rwxr-xr-xlib/Travelynx.pm7
1 files changed, 7 insertions, 0 deletions
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 );
}
);