From 2e2db4c7244ab15ba2cff447cf0c4a77f4790d97 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sun, 28 Apr 2024 14:53:53 +0200
Subject: Add BR420

---
 lib/Travel/Status/DE/DBWagenreihung.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm
index fcda3ba..8d3fd0c 100644
--- a/lib/Travel/Status/DE/DBWagenreihung.pm
+++ b/lib/Travel/Status/DE/DBWagenreihung.pm
@@ -65,6 +65,7 @@ my %model_name = (
 	'411.S2'   => [ 'ICE T',        'BR 411, 2. Serie' ],
 	'412'      => ['ICE 4'],
 	'415'      => [ 'ICE T', 'BR 415' ],
+	'420'      => ['BR 420'],
 	'422'      => ['BR 422'],
 	'423'      => ['BR 423'],
 	'425'      => ['BR 425'],
@@ -521,6 +522,7 @@ sub wagongroup_subtype {
 		'411.S2'   => 0,
 		'412'      => 0,
 		'415'      => 0,
+		'420'      => 0,
 		'422'      => 0,
 		'423'      => 0,
 		'425'      => 0,
@@ -597,6 +599,9 @@ sub wagongroup_subtype {
 		elsif ( $wagon->model == 415 ) {
 			$ml{'415'}++;
 		}
+		elsif ( $wagon->model == 420 or $wagon->model == 421 ) {
+			$ml{'420'}++;
+		}
 		elsif ( $wagon->model == 422 or $wagon->model == 432 ) {
 			$ml{'422'}++;
 		}
-- 
cgit v1.2.3