DBDB: handle undef train_types

This commit is contained in:
Birte Kristina Friesel 2024-08-12 18:17:05 +02:00
parent 97b0b4bd93
commit 521ed1eb87
No known key found for this signature in database
GPG key ID: 19E6E524EBB177BA

View file

@ -29,6 +29,7 @@ sub new {
sub has_wagonorder_p { sub has_wagonorder_p {
my ( $self, %opt ) = @_; my ( $self, %opt ) = @_;
$opt{train_type} //= q{};
my $datetime = $opt{datetime}->clone->set_time_zone('UTC'); my $datetime = $opt{datetime}->clone->set_time_zone('UTC');
my %param = ( my %param = (
administrationId => 80, administrationId => 80,