Commit 5c1ab77d authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

ICE 3 V -> Velaro; actually distinguish between ICE T 411 / 415

parent a9b5b0a8

lib/Travel/Status/DE/DBWagenreihung.pm

+6 −3
Original line number Diff line number Diff line
@@ -312,7 +312,7 @@ sub train_subtype { 
		'ICE 1'        => 0,

		'ICE 2'        => 0,

		'ICE 3'        => 0,

		'ICE 3 V'      => 0,

		'ICE 3 Velaro' => 0,

		'ICE 4'        => 0,

		'ICE T 411'    => 0,

		'ICE T 415'    => 0,
@@ -346,8 +346,11 @@ sub train_subtype { 
		elsif ( $wagon->model == 412 or $wagon->model == 812 ) {

			$ml{'ICE 4'}++;

		}

		elsif ( $wagon->model == 411 or $wagon->model == 415 ) {

			$ml{'ICE T'}++;

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

			$ml{'ICE T 411'}++;

		}

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

			$ml{'ICE T 415'}++;

		}

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

			$ml{'TGV'}++;

lib/Travel/Status/DE/DBWagenreihung/Wagon.pm

+1 −1
Original line number Diff line number Diff line
@@ -34,7 +34,7 @@ our %type_attributes = ( 
		['has_family_area'], undef, ['has_bahn_comfort'],        # 5 6 7

		[ 'has_quiet_area', 'has_phone_area', 'has_bahn_comfort' ], undef  # 8 9

	],

	'ICE 3 V' => [

	'ICE 3 Velaro' => [

		['has_quiet_area'], undef, undef, ['has_family_area'],    # 1 2 3 4

		['has_bahn_comfort'], ['has_bahn_comfort'], undef, undef, # 5 6 (7) 8

		[ 'has_quiet_area', 'has_phone_area' ]                    # 9