X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FIndex.pm;h=72fd824943d93ca9b460ba0a2cb756463b6fe4da;hb=0ffcbe4f423912233b76c5281126d7367653a63d;hp=39c5da43f97000fef1a96b401ebd3239efece9e5;hpb=f6a8e63bf3710e53740b56f590979ccdeb2d662e;p=pr0n

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index 39c5da4..72fd824 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -173,8 +173,16 @@ sub handler {
 	if ($settings{'fullscreen'}) {
 		$r->content_type("text/html; charset=utf-8");
 		Sesse::pr0n::Templates::print_template($r, "fullscreen-header", { title => "$name [$event]" });
+
+		my @files = ();
 		while (my $ref = $q->fetchrow_hashref()) {
-			$r->print("        [ \"" . $ref->{'event'} . "\", \"" . $ref->{'filename'} . "\" ],\n");
+			push @files, [ $ref->{'event'}, $ref->{'filename'} ];
+		}
+		
+		for my $i (0..$#files) {
+			$r->print("        [ \"" . $files[$i]->[0] . "\", \"" . $files[$i]->[1] . "\" ]");
+			$r->print(",") unless ($i == $#files);
+			$r->print("\n");
 		}
 
 		my %settings_no_fullscreen = %settings;