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

Add ICE 3neo

parent 7a2fd508

lib/Travel/Status/DE/DBWagenreihung.pm

+13 −8
Original line number Diff line number Diff line
@@ -50,6 +50,7 @@ my %model_name = ( 
	'406'      => [ 'ICE 3',        'BR 406' ],

	'406.R'    => [ 'ICE 3',        'BR 406 Redesign' ],

	'407'      => [ 'ICE 3 Velaro', 'BR 407' ],

	'408'      => [ 'ICE 3neo',     'BR 408' ],

	'411.S1'   => [ 'ICE T',        'BR 411, 1. Serie' ],

	'411.S2'   => [ 'ICE T',        'BR 411, 2. Serie' ],

	'412'      => ['ICE 4'],
@@ -453,6 +454,7 @@ sub train_subtype { 
		'403.R'    => 0,

		'406'      => 0,

		'407'      => 0,

		'408'      => 0,

		'411.S1'   => 0,

		'411.S2'   => 0,

		'412'      => 0,
@@ -494,6 +496,9 @@ sub train_subtype { 
		elsif ( $wagon->model == 407 ) {

			$ml{'407'}++;

		}

		elsif ( $wagon->model == 408 ) {

			$ml{'408'}++;

		}

		elsif ( $wagon->model == 412 or $wagon->model == 812 ) {

			$ml{'412'}++;

		}