Commit a9b5b0a8 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

distinguish between IC2 KISS and IC2 Twindexx

parent 6346d656

lib/Travel/Status/DE/DBWagenreihung.pm

+14 −10
Original line number Diff line number Diff line
@@ -316,7 +316,8 @@ sub train_subtype { 
		'ICE 4'        => 0,

		'ICE T 411'    => 0,

		'ICE T 415'    => 0,

		'IC2'       => 0,

		'IC2 Twindexx' => 0,

		'IC2 KISS'     => 0,

	);



	for my $wagon (@wagons) {
@@ -351,8 +352,11 @@ sub train_subtype { 
		elsif ( $wagon->model == 475 ) {

			$ml{'TGV'}++;

		}

		elsif ( $self->train_type eq 'IC' and $wagon->model == 110 ) {

			$ml{'IC2 KISS'}++;

		}

		elsif ( $self->train_type eq 'IC' and $wagon->is_dosto ) {

			$ml{'IC2'}++;

			$ml{'IC2 Twindexx'}++;

		}

	}
@@ -593,7 +597,7 @@ Returns a string describing the train type, e.g. "ICE" or "IC". 
=item $wr->train_subtype



Returns a string describing the rolling stock used for this train, e.g. "ICE 4"

or "IC2".

or "IC2 KISS".



=item $wr->wagons

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

+1 −1
Original line number Diff line number Diff line
@@ -58,7 +58,7 @@ our %type_attributes = ( 
		undef, undef, ['has_family_area'],

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

	],

	'IC2' => [

	'IC2 Twindexx' => [

		[ 'has_family_area', 'has_bike_storage' ], ['has_bike_storage'],   # 1 2

		['has_bike_storage'], [ 'has_bike_storage', 'has_bahn_comfort' ],  # 3 4

		[ 'has_bahn_comfort', 'has_quiet_area', 'has_phone_area' ]         # 5