my %settings = %defsettings;
- for my $s qw(thumbxres thumbyres xres yres start num all infobox rot sel fullscreen model lens author) {
+ 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;
undef, $r->get_server_name, $event)
or error($r, "Could not find event $event", 404, "File not found");
- $date = HTML::Entities::encode_entities(Encode::decode_utf8($ref->{'date'}));
- $name = HTML::Entities::encode_entities(Encode::decode_utf8($ref->{'name'}));
+ $date = HTML::Entities::encode_entities($ref->{'date'});
+ $name = HTML::Entities::encode_entities($ref->{'name'});
$r->set_last_modified($ref->{'last_update'});
}
}
sub print_viewres {
my ($r, $event, $settings, $defsettings) = @_;
- my @alternatives = qw(320x256 512x384 640x480 800x600 1024x768 1152x864 1280x960 1400x1050 1600x1200 1920x1440 2048x1536);
+ my @alternatives = qw(320x256 512x384 640x480 800x600 1024x768 1152x864 1280x960 1400x1050 1600x1200 1920x1440 2048x1536 2304x1728);
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, -2, -2 ];