Add an option to enter the new fullscreen mode.

[pr0n] / perl / Sesse / pr0n / Index.pm

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index c073a76086ec70a33e74d9b38a8c62f70dd0eef6..cbdb93c4172f80b0341c9afeee5ce64eaa74b215 100644 (file)
--- 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;