Fix an over-grouping bug.

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

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index db07bc816a1ee979fbe9d53220bb2289efbcf071..239c4b9d8f612a3ff753ecad0de0802907aee66b 100644 (file)
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -57,7 +57,7 @@ sub handler {
                xres => -1,
                yres => -1,
                start => 1,
-               num => 100,
+               num => 250,
                all => 1,
                infobox => 1,
                rot => 0,
@@ -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;
 
@@ -497,7 +497,7 @@ sub print_pagelimit {
        
        # Get choices
        chomp (my $unlimited = Sesse::pr0n::Templates::fetch_template($r, 'imgsperpage-unlimited'));
-       my @alternatives = qw(10 50 100 500);
+       my @alternatives = qw(10 50 100 250 500);
        push @alternatives, $unlimited;
        
        for my $num (@alternatives) {