do not insert duplicate wagongroups

This commit is contained in:
Daniel Friesel 2019-12-13 20:37:51 +01:00
parent 22b0e98b9c
commit ba97fd2a3c

View file

@ -2158,6 +2158,9 @@ sub startup {
if ($is_departure) { if ($is_departure) {
$data->{wagonorder_dep} = $wagonorder; $data->{wagonorder_dep} = $wagonorder;
$user_data->{wagons} = []; $user_data->{wagons} = [];
if ( exists $user_data->{wagongroups} ) {
$user_data->{wagongroups} = [];
}
for my $group ( for my $group (
@{ @{
$wagonorder->{data}{istformation} $wagonorder->{data}{istformation}