X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FIndex.pm;h=30794557e868b2d4de43aa1b0927f63bd61fba06;hp=809bda651d9e6ad60f439948ebd7ccfe7f1ebdb6;hb=29546c334313d9ade7fd708b04f86c567696d471;hpb=dfb798a13cc5b66c50aef55596b3862d0c6d60ab diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm index 809bda6..3079455 100644 --- 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); @@ -328,13 +330,16 @@ sub handler { while (my $ref = $q->fetchrow_hashref()) { my $imgsz = ""; my $takenby = $ref->{'takenby'}; + my $day = ''; if (defined($ref->{'day'})) { - $takenby .= ", " . $ref->{'day'}; + $day = ", " . $ref->{'day'}; } - if ($takenby ne $lastupl) { + my $groupkey = $takenby . $day; + + if ($groupkey ne $lastupl) { $r->print("
\n\n") if ($lastupl ne "" && $rot != 1); - $lastupl = $takenby; + $lastupl = $groupkey; my %newsettings = %settings; @@ -342,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(""); + $r->print(" "); Sesse::pr0n::Common::print_link($r, $title, "/$event/", \%newsettings, $defsettings); - $r->print("
\n"); + $r->print("\n"); } 1;