diff options
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm index 3ede0ae..6ec2c70 100644 --- a/lib/Travel/Status/DE/DBWagenreihung.pm +++ b/lib/Travel/Status/DE/DBWagenreihung.pm @@ -3,6 +3,7 @@ package Travel::Status::DE::DBWagenreihung; use strict; use warnings; use 5.020; +use utf8; our $VERSION = '0.09'; @@ -42,6 +43,7 @@ my %is_redesign = ( ); my %model_name = ( + '011' => [ 'ICE T', 'ÖBB 4011' ], '401' => ['ICE 1'], '402' => ['ICE 2'], '403.S1' => [ 'ICE 3', 'BR 403, 1. Serie' ], @@ -453,6 +455,7 @@ sub wagongroup_subtype { } my %ml = ( + '011' => 0, '401' => 0, '402' => 0, '403.S1' => 0, @@ -594,6 +597,9 @@ sub wagongroup_subtype { elsif ( $self->train_type eq 'IC' and $wagon->is_dosto ) { $ml{'IC2.TWIN'}++; } + elsif ( substr( $wagon->uic_id, 4, 4 ) eq '4011' ) { + $ml{'011'}++; + } } my @likelihood = reverse sort { $ml{$a} <=> $ml{$b} } keys %ml; |