do not insert duplicate wagongroups
This commit is contained in:
parent
22b0e98b9c
commit
ba97fd2a3c
1 changed files with 3 additions and 0 deletions
|
@ -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}
|
||||||
|
|
Loading…
Reference in a new issue