Unverified Commit b064ef7d authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

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
parent 5374c3eb

lib/Travel/Status/DE/DBRIS/Formation/Group.pm

+20 −6
Original line number Diff line number Diff line
@@ -297,6 +297,7 @@ my %ice_name = ( 
my %model_name = (

	'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'}++;

		}