Split infobox generation out into its own function.

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

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index ad3af8fc088d86ecdb71b290965024de91c60fe5..3f9e52498e9be02a5338a611c75c5e960d2dbf3f 100644 (file)
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -343,8 +343,8 @@ sub handler {
                        # Add fullscreen link.
                        my %fssettings = %settings;
                        $fssettings{'fullscreen'} = 1;
-                       $fssettings{'start'} = $img_num;
                        my $fsquery = Sesse::pr0n::Common::get_query_string(\%fssettings, \%defsettings);
+                       $fsquery .= '#' . $img_num;
 
                        my $filename = $ref->{'filename'};
                        my $uri = $filename;
@@ -364,7 +364,7 @@ sub handler {
                        } else {
                                $io->print("     ");
                        }
-                       $io->print("<a href=\"$prefix$uri\" onclick=\"location.href='$prefix$fsquery';return false;\"><img src=\"$prefix${thumbxres}x${thumbyres}/$filename\" alt=\"\"$imgsz /></a>\n");
+                       $io->print("<a href=\"$prefix$uri\" id=\"$img_num\" onclick=\"location.href='$prefix$fsquery';return false;\"><img src=\"$prefix${thumbxres}x${thumbyres}/$filename\" alt=\"\"$imgsz /></a>\n");
                
                        if ($rot == 1) {
                                $io->print("      90 <input type=\"checkbox\" name=\"rot-" .