diff options
author | Daniel Friesel <daniel.friesel@uos.de> | 2020-03-03 18:29:37 +0100 |
---|---|---|
committer | Daniel Friesel <daniel.friesel@uos.de> | 2020-03-03 18:29:37 +0100 |
commit | e6b74ef0875dbdf555462ef7e719f2f8354c3d64 (patch) | |
tree | dc597a8d9c3450e578fc21d84b65707f91109afb /lib/Travelynx.pm | |
parent | adaf9f7c0c6a7a54d0730f94eee13e263c69ba9c (diff) |
show QoS pictograms in connection list1.15.5
Diffstat (limited to 'lib/Travelynx.pm')
-rwxr-xr-x | lib/Travelynx.pm | 7 |
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 ); } ); |