From e0a2b9aa266e0e42d9224eff3839b1875b211218 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 19 Dec 2019 20:16:10 +0100
Subject: save all the wagon orders we can get

---
 lib/Travelynx.pm | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

(limited to 'lib/Travelynx.pm')

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index f4c974c..f1ae8dc 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -2192,7 +2192,6 @@ sub startup {
 
 						if ($is_departure) {
 							$data->{wagonorder_dep} = $wagonorder;
-							$user_data->{wagons}    = [];
 							if ( exists $user_data->{wagongroups} ) {
 								$user_data->{wagongroups} = [];
 							}
@@ -2203,11 +2202,12 @@ sub startup {
 								}
 							  )
 							{
+								my @wagons;
 								for
 								  my $wagon ( @{ $group->{allFahrzeug} // [] } )
 								{
 									push(
-										@{ $user_data->{wagons} },
+										@wagons,
 										{
 											id => $wagon->{fahrzeugnummer},
 											number =>
@@ -2216,15 +2216,18 @@ sub startup {
 										}
 									);
 								}
-								if (    $group->{fahrzeuggruppebezeichnung}
-									and $group->{fahrzeuggruppebezeichnung}
-									=~ m{ ^ ICE }x )
-								{
-									push(
-										@{ $user_data->{wagongroups} },
-										$group->{fahrzeuggruppebezeichnung}
-									);
-								}
+								push(
+									@{ $user_data->{wagongroups} },
+									{
+										name =>
+										  $group->{fahrzeuggruppebezeichnung},
+										from =>
+										  $group->{startbetriebsstellename},
+										to => $group->{zielbetriebsstellename},
+										no => $group->{verkehrlichezugnummer},
+										wagons => [@wagons],
+									}
+								);
 							}
 							$db->update(
 								'in_transit',
-- 
cgit v1.2.3