summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status/DE')
-rw-r--r--lib/Travel/Status/DE/DBWagenreihung.pm10
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm
index 6ec2c70..e5e6f29 100644
--- a/lib/Travel/Status/DE/DBWagenreihung.pm
+++ b/lib/Travel/Status/DE/DBWagenreihung.pm
@@ -60,6 +60,8 @@ my %model_name = (
'422' => ['BR 422'],
'423' => ['BR 423'],
'425' => ['BR 425'],
+ '427' => [ 'FLIRT', 'BR 427' ],
+ '428' => [ 'FLIRT', 'BR 428' ],
'429' => [ 'FLIRT', 'BR 429' ],
'430' => ['BR 430'],
'440' => [ 'Continental', 'BR 440' ],
@@ -471,6 +473,8 @@ sub wagongroup_subtype {
'422' => 0,
'423' => 0,
'425' => 0,
+ '427' => 0,
+ '428' => 0,
'429' => 0,
'430' => 0,
'440' => 0,
@@ -545,6 +549,12 @@ sub wagongroup_subtype {
elsif ( $wagon->model == 425 or $wagon->model == 435 ) {
$ml{'425'}++;
}
+ elsif ( $wagon->model == 427 or $wagon->model == 827 ) {
+ $ml{'427'}++;
+ }
+ elsif ( $wagon->model == 428 or $wagon->model == 828 ) {
+ $ml{'428'}++;
+ }
elsif ( $wagon->model == 429 or $wagon->model == 829 ) {
$ml{'429'}++;
}