save wagongroups if available

1 files changed, 9 insertions, 0 deletions

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 57e8e5b..b13c8e2 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -2178,6 +2178,15 @@ sub startup {
 										}
 									);
 								}
+								if (    $group->{fahrzeuggruppebezeichnung}
+									and $group->{fahrzeuggruppebezeichnung}
+									=~ m{ ^ ICE }x )
+								{
+									push(
+										@{ $user_data->{wagongroups} },
+										$group->{fahrzeuggruppebezeichnung}
+									);
+								}
 							}
 							$db->update(
 								'in_transit',