diff options
author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-03-03 11:24:52 +0100 |
---|---|---|
committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-03-03 11:24:52 +0100 |
commit | dab5eb7f26d7fc45b16249a95996c27e9ced9f04 (patch) | |
tree | 75d0b52e425e265f1388d65baed3516959ad8b9b | |
parent | ffc2a2b3e28ccbf646c6224e3b958a5017d63888 (diff) |
Add Stadler FLIRT
-rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm index 02e80d0..c5c2a21 100644 --- a/lib/Travel/Status/DE/DBWagenreihung.pm +++ b/lib/Travel/Status/DE/DBWagenreihung.pm @@ -56,8 +56,9 @@ my %model_name = ( '412' => ['ICE 4'], '415' => [ 'ICE T', 'BR 415' ], '422' => ['BR 422'], - '429' => [ 'FLIRT', 'BR 429' ], - '475' => [ 'TGV', 'BR 475' ], + '429' => [ 'FLIRT', 'BR 429' ], + '440' => [ 'Coradia Continental', 'BR 440' ], + '475' => [ 'TGV', 'BR 475' ], 'IC2.TWIN' => ['IC 2 Twindexx'], 'IC2.KISS' => ['IC 2 KISS'], ); @@ -442,6 +443,7 @@ sub wagongroup_subtype { '415' => 0, '422' => 0, '429' => 0, + '440' => 0, '475' => 0, 'IC2.TWIN' => 0, 'IC2.KISS' => 0, @@ -501,6 +503,12 @@ sub wagongroup_subtype { elsif ( $wagon->model == 429 or $wagon->model == 829 ) { $ml{'429'}++; } + elsif ($wagon->model == 440 + or $wagon->model == 441 + or $wagon->model == 841 ) + { + $ml{'440'}++; + } elsif ( $wagon->model == 475 ) { $ml{'475'}++; } |