summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Travel/Status/DE/DBWagenreihung.pm5
1 files changed, 5 insertions, 0 deletions
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'}++;
}