summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Travel/Status/DE/DBWagenreihung.pm6
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;