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

sort wagon groups as well, if possible

parent ca55ab0c

lib/Travel/Status/DE/DBWagenreihung.pm

+4 −0
Original line number Diff line number Diff line
@@ -360,6 +360,10 @@ sub parse_wagons { 
		for my $group (@wagon_groups) {

			$group->sort_wagons;

		}

		@wagon_groups = sort {

			$a->{wagons}[0]{position}{start_percent}

			  <=> $b->{wagons}[0]{position}{start_percent}

		} @wagon_groups;

	}



	for my $i ( 0 .. $#wagon_groups ) {