From 0e968cc44d134935f26ce2e587ec2fd8ee3e7eb7 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Sun, 5 Aug 2007 15:21:29 +0200
Subject: [PATCH] Fix yet more grouping bugs.

---
 perl/Sesse/pr0n/Index.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index d070ba1..8e740ce 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -335,9 +335,11 @@ sub handler {
 				$day = ", " . $ref->{'day'};
 			}
 
-			if ($day ne $lastupl) {
+			my $groupkey = $takenby . $day;
+
+			if ($groupkey ne $lastupl) {
 				$r->print("    </p>\n\n") if ($lastupl ne "" && $rot != 1);
-				$lastupl = $day;
+				$lastupl = $groupkey;
 
 				my %newsettings = %settings;
 
-- 
2.39.2