X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FIndex.pm;h=cbdb93c4172f80b0341c9afeee5ce64eaa74b215;hp=c073a76086ec70a33e74d9b38a8c62f70dd0eef6;hb=6a3868f24eee6720fcaaa116ec75958ac44d783b;hpb=0f2b908389f6282960f3af8a4612df41562743b5

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index c073a76..cbdb93c 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -139,6 +139,7 @@ sub handler {
 		print_infobox($r, $event, \%settings, \%defsettings);
 		print_nextprev($r, $event, \%settings, \%defsettings);
 		print_selected($r, $event, \%settings, \%defsettings) if ($num_selected > 0);
+		print_fullscreen($r, $event, \%settings, \%defsettings);
 
 		my $toclose = 0;
 		my $lastupl = "";
@@ -488,6 +489,19 @@ sub print_selected {
 	
 	$r->print('</p>');
 }
+
+sub print_fullscreen {
+	my ($r, $event, $settings, $defsettings) = @_;
+
+	chomp (my $title = Sesse::pr0n::Templates::fetch_template($r, 'fullscreen'));
+
+	my %newsettings = %$settings;
+	$newsettings{'fullscreen'} = 1;
+
+        $r->print("    <p>");
+	Sesse::pr0n::Common::print_link($r, $title, "/$event/", \%newsettings, $defsettings);
+	$r->print("</p>\n");
+}
 	
 1;