Unverified Commit 116d7a6f authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

HAFAS: Improve handling of DB Liniennummerharmonisierung a bit 

See #350
parent 62585daf

lib/Travelynx/Helper/HAFAS.pm

+6 −0
Original line number Diff line number Diff line
@@ -113,6 +113,12 @@ sub get_tripid_p { 
	my $train      = $opt{train};

	my $train_desc = $train->type . ' ' . $train->train_no;

	$train_desc =~ s{^- }{};

	if ( grep { $_ eq 'S' } $train->classes ) {

		$train_desc = 'DB ' . $train->train_no;

	}

	elsif ( grep { $_ eq 'N' } $train->classes or not scalar $train->classes ) {

		$train_desc = $train->train_no;

	}



	$opt{service} //= 'ÖBB';