diff options
Diffstat (limited to 'lib/Travel/Status/DE/DBWagenreihung.pm')
| -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'}++; } |