Change default to 250.

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index db07bc816a1ee979fbe9d53220bb2289efbcf071..a91f8fd907402e22b3b0724a94edfe9fb7b39019 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,
                xres => -1,
                yres => -1,
                start => 1,

-               num => 100,
+               num => 250,

                all => 1,
                infobox => 1,
                rot => 0,
                all => 1,
                infobox => 1,
                rot => 0,


@@ -497,7 +497,7 @@ sub print_pagelimit {
        
        # Get choices
        chomp (my $unlimited = Sesse::pr0n::Templates::fetch_template($r, 'imgsperpage-unlimited'));
        
        # 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) {
        push @alternatives, $unlimited;
        
        for my $num (@alternatives) {