Commit 6f008b7f authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

only display first departure per platform in single mode

parent f39a87e8

cgi/index.pl

+14 −0
Original line number Diff line number Diff line
@@ -54,6 +54,20 @@ sub handle_request { 
		return;

	}



	if ($template eq 'single') {

		if (not @platforms) {

			for my $result (@results) {

				if (not ($result->platform ~~ \@platforms)) {

					push(@platforms, $result->platform);

				}

			}

			@platforms = sort { $a <=> $b } @platforms;

		}

		my %pcnt;

		@results = grep { $pcnt{$_->platform}++ < 1 } @results;

		@results = sort { $a->platform <=> $b->platform } @results;

	}



	for my $result (@results) {

		my $platform = ( split( / /, $result->platform ) )[0];

		if ($via) {