Fix yet more grouping bugs.

[pr0n] / perl / Sesse / pr0n / Index.pm

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index a91f8fd907402e22b3b0724a94edfe9fb7b39019..8e740ce803b2819c1c5acac85d6ccd46471f12a3 100644 (file)
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -335,9 +335,11 @@ sub handler {
                                $day = ", " . $ref->{'day'};
                        }
 
-                       if ($takenby ne $lastupl) {
+                       my $groupkey = $takenby . $day;
+
+                       if ($groupkey ne $lastupl) {
                                $r->print("    </p>\n\n") if ($lastupl ne "" && $rot != 1);
-                               $lastupl = $takenby;
+                               $lastupl = $groupkey;
 
                                my %newsettings = %settings;
 
@@ -355,7 +357,7 @@ sub handler {
                                my $url = "/$event/" . Sesse::pr0n::Common::get_query_string(\%newsettings, \%defsettings);
                                
                                $r->print("    <h2>");
-                               Sesse::pr0n::Templates::print_template($r, "submittedby", { author => $lastupl, action => $action, filterurl => $url, date => $day });
+                               Sesse::pr0n::Templates::print_template($r, "submittedby", { author => $takenby, action => $action, filterurl => $url, date => $day });
                                print_fullscreen_fromhere($r, $event, \%settings, \%defsettings, $img_num);
                                $r->print("</h2>\n");