Unverified Commit 8671bc4d authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

wagongroup_subtype: Support Link I (only has a single wagon)

parent 3fd3f93c

lib/Travel/Status/DE/DBWagenreihung.pm

+3 −3
Original line number Diff line number Diff line
@@ -648,9 +648,9 @@ sub wagongroup_subtype { 


	my @likelihood = reverse sort { $ml{$a} <=> $ml{$b} } keys %ml;



	if ( $ml{ $likelihood[0] } < 2 ) {



		# inconclusive

	# Less than two wagons are generally inconclusive.

	# Exception: BR 631 (Link I) only has a single wagon

	if ( $ml{ $likelihood[0] } < 2 and $likelihood[0] ne '631' ) {

		return undef;

	}