diff options
Diffstat (limited to 'lib/Travel')
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung.pm | 9 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung/Wagon.pm | 2 |
2 files changed, 7 insertions, 4 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm index 9b70f00..2d4d2fe 100644 --- a/lib/Travel/Status/DE/DBWagenreihung.pm +++ b/lib/Travel/Status/DE/DBWagenreihung.pm @@ -312,7 +312,7 @@ sub train_subtype { 'ICE 1' => 0, 'ICE 2' => 0, 'ICE 3' => 0, - 'ICE 3 V' => 0, + 'ICE 3 Velaro' => 0, 'ICE 4' => 0, 'ICE T 411' => 0, 'ICE T 415' => 0, @@ -346,8 +346,11 @@ sub train_subtype { elsif ( $wagon->model == 412 or $wagon->model == 812 ) { $ml{'ICE 4'}++; } - elsif ( $wagon->model == 411 or $wagon->model == 415 ) { - $ml{'ICE T'}++; + elsif ( $wagon->model == 411 ) { + $ml{'ICE T 411'}++; + } + elsif ( $wagon->model == 415 ) { + $ml{'ICE T 415'}++; } elsif ( $wagon->model == 475 ) { $ml{'TGV'}++; diff --git a/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm b/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm index 9be8ce5..f95d643 100644 --- a/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm +++ b/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm @@ -34,7 +34,7 @@ our %type_attributes = ( ['has_family_area'], undef, ['has_bahn_comfort'], # 5 6 7 [ 'has_quiet_area', 'has_phone_area', 'has_bahn_comfort' ], undef # 8 9 ], - 'ICE 3 V' => [ + 'ICE 3 Velaro' => [ ['has_quiet_area'], undef, undef, ['has_family_area'], # 1 2 3 4 ['has_bahn_comfort'], ['has_bahn_comfort'], undef, undef, # 5 6 (7) 8 [ 'has_quiet_area', 'has_phone_area' ] # 9 |