Fix yet more grouping bugs.

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index d070ba157f7298393c365b414fda965075cd3197..8e740ce803b2819c1c5acac85d6ccd46471f12a3 100644 (file)
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -335,9 +335,11 @@ sub handler {
                                $day = ", " . $ref->{'day'};
                        }
 
                                $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);
                                $r->print("    </p>\n\n") if ($lastupl ne "" && $rot != 1);

-                               $lastupl = $day;
+                               $lastupl = $groupkey;

 
                                my %newsettings = %settings;
 
 
                                my %newsettings = %settings;