diff options
Diffstat (limited to 'lib/Travel/Status/DE/DBWagenreihung.pm')
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm index e5e6f29..887dafe 100644 --- a/lib/Travel/Status/DE/DBWagenreihung.pm +++ b/lib/Travel/Status/DE/DBWagenreihung.pm @@ -73,6 +73,9 @@ my %model_name = ( '612' => [ 'RegioSwinger', 'BR 612' ], '620' => [ 'LINT 81', 'BR 620' ], '622' => [ 'LINT 54', 'BR 622' ], + '631' => [ 'Link I', 'BR 631' ], + '632' => [ 'Link II', 'BR 632' ], + '633' => [ 'Link III', 'BR 633' ], '640' => [ 'LINT 27', 'BR 640' ], '648' => [ 'LINT 41', 'BR 648' ], 'IC2.TWIN' => ['IC 2 Twindexx'], @@ -486,6 +489,9 @@ sub wagongroup_subtype { '612' => 0, '620' => 0, '622' => 0, + '631' => 0, + '632' => 0, + '633' => 0, '640' => 0, '648' => 0, 'IC2.TWIN' => 0, @@ -595,6 +601,15 @@ sub wagongroup_subtype { elsif ( $wagon->model == 622 ) { $ml{'622'}++; } + elsif ( $wagon->model == 631 ) { + $ml{'631'}++; + } + elsif ( $wagon->model == 632 ) { + $ml{'632'}++; + } + elsif ( $wagon->model == 633 ) { + $ml{'633'}++; + } elsif ( $wagon->model == 640 ) { $ml{'640'}++; } |