diff options
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung.pm | 5 |
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'}++; } |