From dab5eb7f26d7fc45b16249a95996c27e9ced9f04 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sun, 3 Mar 2024 11:24:52 +0100
Subject: Add Stadler FLIRT

---
 lib/Travel/Status/DE/DBWagenreihung.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'lib/Travel')

diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm
index 02e80d0..c5c2a21 100644
--- a/lib/Travel/Status/DE/DBWagenreihung.pm
+++ b/lib/Travel/Status/DE/DBWagenreihung.pm
@@ -56,8 +56,9 @@ my %model_name = (
 	'412'      => ['ICE 4'],
 	'415'      => [ 'ICE T', 'BR 415' ],
 	'422'      => ['BR 422'],
-	'429'      => [ 'FLIRT', 'BR 429' ],
-	'475'      => [ 'TGV',   'BR 475' ],
+	'429'      => [ 'FLIRT',               'BR 429' ],
+	'440'      => [ 'Coradia Continental', 'BR 440' ],
+	'475'      => [ 'TGV',                 'BR 475' ],
 	'IC2.TWIN' => ['IC 2 Twindexx'],
 	'IC2.KISS' => ['IC 2 KISS'],
 );
@@ -442,6 +443,7 @@ sub wagongroup_subtype {
 		'415'      => 0,
 		'422'      => 0,
 		'429'      => 0,
+		'440'      => 0,
 		'475'      => 0,
 		'IC2.TWIN' => 0,
 		'IC2.KISS' => 0,
@@ -501,6 +503,12 @@ sub wagongroup_subtype {
 		elsif ( $wagon->model == 429 or $wagon->model == 829 ) {
 			$ml{'429'}++;
 		}
+		elsif ($wagon->model == 440
+			or $wagon->model == 441
+			or $wagon->model == 841 )
+		{
+			$ml{'440'}++;
+		}
 		elsif ( $wagon->model == 475 ) {
 			$ml{'475'}++;
 		}
-- 
cgit v1.2.3