From 287bb75d2f987e8646a4a33ffac53958b038d785 Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Sun, 3 Mar 2024 13:01:27 +0100 Subject: Add ICE T in ÖBB 4011 variant MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/Travel/Status/DE/DBWagenreihung.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lib') 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; -- cgit v1.2.3