diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-11-15 18:31:24 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-11-15 18:31:24 +0100 |
| commit | b064ef7ddbf20eeabc029ae7b2ce2bede064c48b (patch) | |
| tree | 4b27df45a03413cf01b4dd6e20da4b0e639fc9f9 /lib | |
| parent | 5374c3eb342d17d14f78fddc429dac7475306b29 (diff) | |
Add ICE L and LINT 41
Closes #8
Squashed commit of the following:
commit 821b3d69c0a9877470675e65d07e5a2301d5cba7
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sat Nov 15 18:28:31 2025 +0100
perltidy
commit 440b5baa45bc423b18f8f87aaeabbd714a4ce7fd
Author: Lili Urban <mail@lili-urban.net>
Date: Sun Nov 2 15:43:56 2025 +0100
- LINT 41 - Baureihe 623 (benutzt von DB Regio (z. B. Pfalznetz)) hinzugefügt
commit 1800adbd23a51d88dfeab389e0433a58a85953d2
Author: Lili Urban <mail@lili-urban.net>
Date: Sat Nov 1 12:23:04 2025 +0100
ICE L hinzugefügt, sodass die Zugverbände erkannt werden
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Travel/Status/DE/DBRIS/Formation/Group.pm | 26 |
1 files changed, 20 insertions, 6 deletions
diff --git a/lib/Travel/Status/DE/DBRIS/Formation/Group.pm b/lib/Travel/Status/DE/DBRIS/Formation/Group.pm index 3964f06..85dc4c2 100644 --- a/lib/Travel/Status/DE/DBRIS/Formation/Group.pm +++ b/lib/Travel/Status/DE/DBRIS/Formation/Group.pm @@ -277,16 +277,16 @@ my %ice_name = ( 9041 => 'Baden-Württemberg', 9046 => 'Female ICE', 9050 => 'Metropole Ruhr', - 9201 => 'Hannover', + 9201 => 'Hannover', 9202 => 'Schleswig-Holstein', - 9203 => 'Stendal', - 9205 => 'Biosphärengebiet Schwäbische Alb', + 9203 => 'Stendal', + 9205 => 'Biosphärengebiet Schwäbische Alb', 9208 => 'Nationalpark Bayrischer Wald', 9234 => 'Ruhr', 9237 => 'Spree', 9457 => 'Bundesrepublik Deutschland', 9481 => 'Rheinland-Pfalz', - 9485 => 'Karriere-ICE', + 9485 => 'Karriere-ICE', 9488 => 'Würzburg' ); @@ -295,8 +295,9 @@ my %ice_name = ( # {{{ Rolling Stock Models my %model_name = ( - '011' => [ 'ICE T', 'ÖBB 4011' ], - '023' => [ 'CFL KISS', 'CFL 2300' ], + '011' => [ 'ICE T', 'ÖBB 4011' ], + '023' => [ 'CFL KISS', 'CFL 2300' ], + '091' => ['ICE L'], '401' => [ 'ICE 1', 'BR 401' ], '402' => [ 'ICE 2', 'BR 402' ], '403.S1' => [ 'ICE 3', 'BR 403, 1. Serie' ], @@ -330,6 +331,7 @@ my %model_name = ( '612' => [ 'RegioSwinger', 'BR 612' ], '620' => [ 'LINT 81', 'BR 620' ], '622' => [ 'LINT 54', 'BR 622' ], + '623' => [ 'LINT 41', 'BR 623' ], '631' => [ 'Link I', 'BR 631' ], '632' => [ 'Link II', 'BR 632' ], '633' => [ 'Link III', 'BR 633' ], @@ -433,6 +435,7 @@ sub parse_model { my %ml = ( '011' => 0, '023' => 0, + '091' => 0, '401' => 0, '402' => 0, '403.S1' => 0, @@ -465,6 +468,7 @@ sub parse_model { '612' => 0, '620' => 0, '622' => 0, + '623' => 0, '631' => 0, '632' => 0, '633' => 0, @@ -488,6 +492,13 @@ sub parse_model { if ( $carriage->model == 023 ) { $ml{'023'}++; } + elsif ($carriage->model == 091 + or $carriage->model == 491 + or $carriage->model == 791 + or $carriage->model == 891 ) + { + $ml{'091'}++; + } elsif ( $carriage->model == 401 or ( $carriage->model >= 801 and $carriage->model <= 804 ) ) { @@ -602,6 +613,9 @@ sub parse_model { elsif ( $carriage->model == 622 ) { $ml{'622'}++; } + elsif ( $carriage->model == 623 ) { + $ml{'623'}++; + } elsif ( $carriage->model == 631 ) { $ml{'631'}++; } |