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

is_{first,second}_class: Support dosto wagons

parent 9cc06b36

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

+2 −2
Original line number Diff line number Diff line
@@ -213,7 +213,7 @@ sub set_traintype { 
sub is_first_class {

	my ($self) = @_;



	if ( $self->{type} =~ m{^A} ) {

	if ( $self->{type} =~ m{^D?A} ) {

		return 1;

	}

	return 0;
@@ -222,7 +222,7 @@ sub is_first_class { 
sub is_second_class {

	my ($self) = @_;



	if ( $self->{type} =~ m{^A?B} ) {

	if ( $self->{type} =~ m{^D?A?B} ) {

		return 1;

	}

	return 0;