From 5c1ab77d24e311c1c613c3a9441bda84cc014c0b Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 26 Dec 2020 10:13:28 +0100
Subject: ICE 3 V -> Velaro; actually distinguish between ICE T 411 / 415

---
 lib/Travel/Status/DE/DBWagenreihung.pm       | 9 ++++++---
 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
-- 
cgit v1.2.3