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

Formation/Group: Add Stadler KISS 

Yes, 445/446 are both KISS and Vario.
parent 68a9b34d

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

+5 −0
Original line number Diff line number Diff line
@@ -330,6 +330,7 @@ my %model_name = ( 
	'442'      => [ 'Talent 2',            'BR 442' ],

	'445'      => [ 'Twindexx Vario',      'BR 445' ],

	'446'      => [ 'Twindexx Vario',      'BR 446' ],

	'445446'   => [ 'Stadler KISS',        'BR 445' ],

	'462'      => [ 'Desiro HC',           'BR 462' ],

	'463'      => [ 'Mireo',               'BR 463' ],

	'475'      => [ 'TGV',                 'BR 475' ],
@@ -467,6 +468,7 @@ sub parse_model { 
		'442'      => 0,

		'445'      => 0,

		'446'      => 0,

		'445446'   => 0,

		'462'      => 0,

		'463'      => 0,

		'475'      => 0,
@@ -598,6 +600,9 @@ sub parse_model { 
		{

			$ml{'463'}++;

		}

		elsif ( substr($carriage->uic_id, 5, 4) =~ m{ 44 [56] [16] }x ) {

			$ml{'445446'}++;

		}

		elsif ( $carriage->model == 445 ) {

			$ml{'445'}++;

		}