save wagongroups if available
This commit is contained in:
parent
b211e0842a
commit
f6bff01f76
1 changed files with 9 additions and 0 deletions
|
@ -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',
|
||||
|
|
Loading…
Reference in a new issue