diff options
Diffstat (limited to 'lib/Travel/Status/DE')
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung.pm | 10 |
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'}++; } |