Fix an over-grouping bug.
authorSteinar H. Gunderson <sesse@debian.org>
Sun, 29 Jul 2007 16:48:32 +0000 (18:48 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Sun, 29 Jul 2007 16:48:32 +0000 (18:48 +0200)
perl/Sesse/pr0n/Index.pm

index a91f8fd907402e22b3b0724a94edfe9fb7b39019..239c4b9d8f612a3ff753ecad0de0802907aee66b 100644 (file)
@@ -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;