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

Add BR420

parent 81bcb5b5

lib/Travel/Status/DE/DBWagenreihung.pm

+5 −0
Original line number Diff line number Diff line
@@ -65,6 +65,7 @@ my %model_name = ( 
	'411.S2'   => [ 'ICE T',        'BR 411, 2. Serie' ],

	'412'      => ['ICE 4'],

	'415'      => [ 'ICE T', 'BR 415' ],

	'420'      => ['BR 420'],

	'422'      => ['BR 422'],

	'423'      => ['BR 423'],

	'425'      => ['BR 425'],
@@ -521,6 +522,7 @@ sub wagongroup_subtype { 
		'411.S2'   => 0,

		'412'      => 0,

		'415'      => 0,

		'420'      => 0,

		'422'      => 0,

		'423'      => 0,

		'425'      => 0,
@@ -597,6 +599,9 @@ sub wagongroup_subtype { 
		elsif ( $wagon->model == 415 ) {

			$ml{'415'}++;

		}

		elsif ( $wagon->model == 420 or $wagon->model == 421 ) {

			$ml{'420'}++;

		}

		elsif ( $wagon->model == 422 or $wagon->model == 432 ) {

			$ml{'422'}++;

		}