summaryrefslogtreecommitdiff
path: root/lib/Travel
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel')
-rw-r--r--lib/Travel/Status/DE/DBWagenreihung.pm60
1 files changed, 57 insertions, 3 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm
index 1a5aebc..383ff4f 100644
--- a/lib/Travel/Status/DE/DBWagenreihung.pm
+++ b/lib/Travel/Status/DE/DBWagenreihung.pm
@@ -56,9 +56,19 @@ my %model_name = (
'412' => ['ICE 4'],
'415' => [ 'ICE T', 'BR 415' ],
'422' => ['BR 422'],
- '429' => [ 'FLIRT', 'BR 429' ],
- '440' => [ 'Coradia Continental', 'BR 440' ],
- '475' => [ 'TGV', 'BR 475' ],
+ '423' => ['BR 423'],
+ '425' => ['BR 425'],
+ '429' => [ 'FLIRT', 'BR 429' ],
+ '440' => [ 'Continental', 'BR 440' ],
+ '442' => [ 'Talent 2', 'BR 442' ],
+ '445' => [ 'Twindexx Vario', 'BR 445' ],
+ '446' => [ 'Twindexx Vario', 'BR 446' ],
+ '463' => [ 'Mireo', 'BR 463' ],
+ '475' => [ 'TGV', 'BR 475' ],
+ '620' => [ 'LINT 81', 'BR 620' ],
+ '622' => [ 'LINT 54', 'BR 622' ],
+ '640' => [ 'LINT 27', 'BR 640' ],
+ '648' => [ 'LINT 41', 'BR 648' ],
'IC2.TWIN' => ['IC 2 Twindexx'],
'IC2.KISS' => ['IC 2 KISS'],
);
@@ -454,9 +464,19 @@ sub wagongroup_subtype {
'412' => 0,
'415' => 0,
'422' => 0,
+ '423' => 0,
+ '425' => 0,
'429' => 0,
'440' => 0,
+ '442' => 0,
+ '445' => 0,
+ '446' => 0,
+ '463' => 0,
'475' => 0,
+ '620' => 0,
+ '622' => 0,
+ '640' => 0,
+ '648' => 0,
'IC2.TWIN' => 0,
'IC2.KISS' => 0,
);
@@ -512,6 +532,12 @@ sub wagongroup_subtype {
elsif ( $wagon->model == 422 or $wagon->model == 432 ) {
$ml{'422'}++;
}
+ elsif ( $wagon->model == 423 or $wagon->model == 433 ) {
+ $ml{'423'}++;
+ }
+ elsif ( $wagon->model == 425 or $wagon->model == 435 ) {
+ $ml{'425'}++;
+ }
elsif ( $wagon->model == 429 or $wagon->model == 829 ) {
$ml{'429'}++;
}
@@ -521,9 +547,37 @@ sub wagongroup_subtype {
{
$ml{'440'}++;
}
+ elsif ($wagon->model == 442
+ or $wagon->model == 443 )
+ {
+ $ml{'442'}++;
+ }
+ elsif ($wagon->model == 463
+ or $wagon->model == 863 )
+ {
+ $ml{'463'}++;
+ }
+ elsif ( $wagon->model == 445 ) {
+ $ml{'445'}++;
+ }
+ elsif ( $wagon->model == 446 ) {
+ $ml{'446'}++;
+ }
elsif ( $wagon->model == 475 ) {
$ml{'475'}++;
}
+ elsif ( $wagon->model == 620 or $wagon->model == 621 ) {
+ $ml{'620'}++;
+ }
+ elsif ( $wagon->model == 622 ) {
+ $ml{'622'}++;
+ }
+ elsif ( $wagon->model == 640 ) {
+ $ml{'640'}++;
+ }
+ elsif ( $wagon->model == 648 ) {
+ $ml{'648'}++;
+ }
elsif ( $self->train_type eq 'IC' and $wagon->model == 110 ) {
$ml{'IC2.KISS'}++;
}