sel => 0,
fullscreen => 0,
model => undef,
- lens => undef
+ lens => undef,
+ author => undef
);
my $where;
my %settings = %defsettings;
- for my $s qw(thumbxres thumbyres xres yres start num all infobox rot sel fullscreen model lens) {
+ for my $s qw(thumbxres thumbyres xres yres start num all infobox rot sel fullscreen model lens author) {
my $val = $apr->param($s);
if (defined($val) && $val =~ /^(\d+)$/) {
$settings{$s} = $val;
if (($s eq "num" || $s eq "xres" || $s eq "yres") && defined($val) && $val == -1) {
$settings{$s} = $val;
}
- if ($s eq "model" || $s eq "lens") {
+ if ($s eq "model" || $s eq "lens" || $s eq "author") {
$settings{$s} = Sesse::pr0n::Common::pretty_unescape($val);
}
}
my $sel = $settings{'sel'};
my $model = $settings{'model'};
my $lens = $settings{'lens'};
+ my $author = $settings{'author'};
# Construct SQL for this filter
if ($all == 0) {
$where .= " AND id IN ( SELECT image FROM exif_info WHERE (key='Lens' OR key='LensSpec') AND TRIM(value)=$lq )";
}
}
+ if (defined($author)) {
+ my $aq = $dbh->quote($author);
+
+ $where .= " AND takenby=$aq";
+ }
if (defined($num) && $num == -1) {
$num = undef;
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) {
$r->print(" </p>\n\n") if ($lastupl ne "" && $rot != 1);
$lastupl = $takenby;
+
+ my %newsettings = %settings;
+
+ my $action;
+ if (defined($author)) {
+ chomp ($action = Sesse::pr0n::Templates::fetch_template($r, "unfilter"));
+ $newsettings{'author'} = undef;
+ } else {
+ chomp ($action = Sesse::pr0n::Templates::fetch_template($r, "filter"));
+ $newsettings{'author'} = $ref->{'takenby'};
+ }
+
+ my $url = "/$event/" . Sesse::pr0n::Common::get_query_string(\%newsettings, \%defsettings);
+
$r->print(" <h2>");
- Sesse::pr0n::Templates::print_template($r, "submittedby", { author => $lastupl });
+ 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");
$newsettings{'fullscreen'} = 1;
$newsettings{'start'} = $start;
- $r->print(" <p class=\"fsfromhere\">");
+ $r->print(" <span class=\"fsfromhere\">");
Sesse::pr0n::Common::print_link($r, $title, "/$event/", \%newsettings, $defsettings);
- $r->print("</p>\n");
+ $r->print("</span>\n");
}
1;