diff options
Diffstat (limited to 'lib/Travel/Status/DE/DBWagenreihung.pm')
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung.pm | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm index 351e0e0..4a5c949 100644 --- a/lib/Travel/Status/DE/DBWagenreihung.pm +++ b/lib/Travel/Status/DE/DBWagenreihung.pm @@ -44,17 +44,18 @@ my %is_redesign = ( my %model_name = ( '401' => ['ICE 1'], '402' => ['ICE 2'], - '403.S1' => [ 'ICE 3', 'BR 403, 1. Serie' ], - '403.S2' => [ 'ICE 3', 'BR 403, 2. Serie' ], - '403.R' => [ 'ICE 3', 'BR 403 Redesign' ], - '406' => [ 'ICE 3', 'BR 406' ], - '406.R' => [ 'ICE 3', 'BR 406 Redesign' ], + '403.S1' => [ 'ICE 3', 'BR 403, 1. Serie' ], + '403.S2' => [ 'ICE 3', 'BR 403, 2. Serie' ], + '403.R' => [ 'ICE 3', 'BR 403 Redesign' ], + '406' => [ 'ICE 3', 'BR 406' ], + '406.R' => [ 'ICE 3', 'BR 406 Redesign' ], '407' => [ 'ICE 3 Velaro', 'BR 407' ], - '411.S1' => [ 'ICE T', 'BR 411, 1. Serie' ], - '411.S2' => [ 'ICE T', 'BR 411, 2. Serie' ], + '408' => [ 'ICE 3neo', 'BR 408' ], + '411.S1' => [ 'ICE T', 'BR 411, 1. Serie' ], + '411.S2' => [ 'ICE T', 'BR 411, 2. Serie' ], '412' => ['ICE 4'], '415' => [ 'ICE T', 'BR 415' ], - '475' => [ 'TGV', 'BR 475' ], + '475' => [ 'TGV', 'BR 475' ], 'IC2.TWIN' => ['IC 2 Twindexx'], 'IC2.KISS' => ['IC 2 KISS'], ); @@ -453,6 +454,7 @@ sub train_subtype { '403.R' => 0, '406' => 0, '407' => 0, + '408' => 0, '411.S1' => 0, '411.S2' => 0, '412' => 0, @@ -494,6 +496,9 @@ sub train_subtype { elsif ( $wagon->model == 407 ) { $ml{'407'}++; } + elsif ( $wagon->model == 408 ) { + $ml{'408'}++; + } elsif ( $wagon->model == 412 or $wagon->model == 812 ) { $ml{'412'}++; } |