Fix a bug that was introduced by the previous bug :-)

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

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index db07bc816a1ee979fbe9d53220bb2289efbcf071..d070ba157f7298393c365b414fda965075cd3197 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;
 
@@ -355,7 +355,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");
 
@@ -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) {