X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FIndex.pm;h=1a631ebaea16f5e6746f2d77a1c22402ad1b665a;hp=c8130848303fb64a5b72a900daf64332772c3f0b;hb=29d3bea6754640ffe4ed735caafa7f497623142d;hpb=351d151e235374cb3454fd015354eaad2e73b41e

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index c813084..1a631eb 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -88,7 +88,7 @@ sub handler {
 		
 	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;
@@ -164,8 +164,8 @@ sub handler {
 			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'});
 	}
 		                
@@ -479,7 +479,7 @@ sub print_thumbsize {
 }
 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 ];