From: Steinar H. Gunderson <sesse@debian.org>
Date: Sun, 29 Jul 2007 16:48:32 +0000 (+0200)
Subject: Fix an over-grouping bug.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=0d622d1cdc55f091b7d4219b2763fac7902fbd53;ds=sidebyside

Fix an over-grouping bug.
---

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