From 8285eeaf7d46a2b50e169df2690ae2e990e2c517 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 21 Dec 2020 14:49:06 +0100 Subject: use objects in wagon list --- bin/db-zugbildung-to-json | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'bin') diff --git a/bin/db-zugbildung-to-json b/bin/db-zugbildung-to-json index f5439d1..849d685 100755 --- a/bin/db-zugbildung-to-json +++ b/bin/db-zugbildung-to-json @@ -574,7 +574,12 @@ for my $train_number ( keys %map ) { for my $wagon ( @{ $wagon_map{$train_number} // [] } ) { my ( $wagon_type, $wagon_number ) = @{$wagon}; - push( @{ $map{$train_number}{wagons} }, $wagon ); + my $json_wagon = { type => $wagon_type }; + if ($wagon_number) { + $json_wagon->{number} = 0 + $wagon_number; + } + + push( @{ $map{$train_number}{wagons} }, $json_wagon ); if ( $wagon_type =~ m{ 40[1-9] | 14[67] }x ) { next; -- cgit v1.2.3