Resolution boost!

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

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index ef8bb543d0b205aba78ea44add76c035ff606649..30794557e868b2d4de43aa1b0927f63bd61fba06 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,
@@ -296,10 +296,12 @@ sub handler {
                                                chomp ($action = Sesse::pr0n::Templates::fetch_template($r, "unfilter"));
                                                $newsettings{'model'} = undef;
                                                $newsettings{'lens'} = undef;
+                                               $newsettings{'start'} = 1;
                                        } else {
                                                chomp ($action = Sesse::pr0n::Templates::fetch_template($r, "filter"));
                                                $newsettings{'model'} = $e->{'model'};
                                                $newsettings{'lens'} = defined($e->{'lens'}) ? $e->{'lens'} : '';
+                                               $newsettings{'start'} = 1;
                                        }
                                        
                                        my $url = "/$event/" . Sesse::pr0n::Common::get_query_string(\%newsettings, \%defsettings);
@@ -333,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;
 
@@ -343,15 +347,17 @@ sub handler {
                                if (defined($author)) {
                                        chomp ($action = Sesse::pr0n::Templates::fetch_template($r, "unfilter"));
                                        $newsettings{'author'} = undef;
+                                       $newsettings{'start'} = 1;
                                } else {
                                        chomp ($action = Sesse::pr0n::Templates::fetch_template($r, "filter"));
                                        $newsettings{'author'} = $ref->{'takenby'};
+                                       $newsettings{'start'} = 1;
                                }
 
                                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");
 
@@ -474,7 +480,7 @@ sub print_thumbsize {
 }
 sub print_viewres {
        my ($r, $event, $settings, $defsettings) = @_;
-       my @alternatives = qw(320x256 512x384 640x480 800x600 1024x768 1280x960);
+       my @alternatives = qw(320x256 512x384 640x480 800x600 1024x768 1280x960 1400x1050 1600x1200);
        chomp (my $unlimited = Sesse::pr0n::Templates::fetch_template($r, 'viewres-unlimited'));
        chomp (my $original = Sesse::pr0n::Templates::fetch_template($r, 'viewres-original'));
        push @alternatives, [ $unlimited, undef, undef ];
@@ -493,7 +499,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) {