From a1d7955bf5d6f3c5d8e4124659e3e5d8828d664e Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Sun, 3 Mar 2024 18:39:35 +0100 Subject: Add Siemens Desiro HC --- lib/Travel/Status/DE/DBWagenreihung.pm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'lib/Travel/Status/DE/DBWagenreihung.pm') diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm index d733fe0..cbd7e71 100644 --- a/lib/Travel/Status/DE/DBWagenreihung.pm +++ b/lib/Travel/Status/DE/DBWagenreihung.pm @@ -68,6 +68,7 @@ my %model_name = ( '442' => [ 'Talent 2', 'BR 442' ], '445' => [ 'Twindexx Vario', 'BR 445' ], '446' => [ 'Twindexx Vario', 'BR 446' ], + '462' => [ 'Desiro HC', 'BR 462' ], '463' => [ 'Mireo', 'BR 463' ], '475' => [ 'TGV', 'BR 475' ], '612' => [ 'RegioSwinger', 'BR 612' ], @@ -485,6 +486,7 @@ sub wagongroup_subtype { '442' => 0, '445' => 0, '446' => 0, + '462' => 0, '463' => 0, '475' => 0, '612' => 0, @@ -580,6 +582,11 @@ sub wagongroup_subtype { { $ml{'442'}++; } + elsif ($wagon->model == 462 + or $wagon->model == 862 ) + { + $ml{'462'}++; + } elsif ($wagon->model == 463 or $wagon->model == 863 ) { -- cgit v1.2.3