summaryrefslogtreecommitdiff
path: root/lib/Travel/Status
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status')
-rw-r--r--lib/Travel/Status/DE/DBWagenreihung.pm12
1 files changed, 10 insertions, 2 deletions
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'}++;
}