From ba97fd2a3ce5fffecb1dc5be62dbd370eb3235ae Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 13 Dec 2019 20:37:51 +0100
Subject: do not insert duplicate wagongroups
---
lib/Travelynx.pm | 3 +++
1 file changed, 3 insertions(+)
(limited to 'lib')
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index b13c8e2..cc0f81d 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -2158,6 +2158,9 @@ sub startup {
if ($is_departure) {
$data->{wagonorder_dep} = $wagonorder;
$user_data->{wagons} = [];
+ if ( exists $user_data->{wagongroups} ) {
+ $user_data->{wagongroups} = [];
+ }
for my $group (
@{
$wagonorder->{data}{istformation}
--
cgit v1.2.3