Allow () in filenames.

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

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index 9aa05fceb6f632b31e2d8a687c3b52bfc6e631cf..db07bc816a1ee979fbe9d53220bb2289efbcf071 100644 (file)
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -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,8 +330,9 @@ 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) {
@@ -342,15 +345,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 });
+                               Sesse::pr0n::Templates::print_template($r, "submittedby", { author => $lastupl, action => $action, filterurl => $url, date => $day });
                                print_fullscreen_fromhere($r, $event, \%settings, \%defsettings, $img_num);
                                $r->print("</h2>\n");