From 6f008b7f56ee44f0149ca59cf3d3fec90cc28f76 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 14 Aug 2012 06:30:56 +0200
Subject: only display first departure per platform in single mode

---
 cgi/index.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/cgi/index.pl b/cgi/index.pl
index 1e33e48..10f6880 100644
--- a/cgi/index.pl
+++ b/cgi/index.pl
@@ -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) {
-- 
cgit v1.2.3