Fix nobox + noscale.
authorSteinar H. Gunderson <sesse@debian.org>
Sun, 6 Aug 2006 23:28:58 +0000 (01:28 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Sun, 6 Aug 2006 23:28:58 +0000 (01:28 +0200)
perl/Sesse/pr0n/Index.pm

index bf201acab472241574e7d3427bcb5b530a16a44d..00709aa352a24fbce73821966816a9acf97fe46c 100644 (file)
@@ -169,7 +169,7 @@ sub handler {
                                }
 
                                my $filename = $ref->{'filename'};
-                               my $uri = $filename;
+                               my $uri = $infobox . $filename;
                                if (defined($xres) && defined($yres) && $xres != -1) {
                                        $uri = "${xres}x$yres/$infobox$filename";
                                } elsif (defined($xres) && $xres == -1) {
@@ -212,7 +212,7 @@ sub handler {
                                }
 
                                my $filename = $ref->{'filename'};
-                               my $uri = $filename;
+                               my $uri = $infobox . $filename;
                                if (defined($xres) && defined($yres) && $xres != -1) {
                                        $uri = "${xres}x$yres/$infobox$filename";
                                } elsif (defined($xres) && $xres == -1) {
@@ -250,7 +250,7 @@ sub handler {
                                }
 
                                my $filename = $ref->{'filename'};
-                               my $uri = $filename;
+                               my $uri = $infobox . $filename;
                                if (defined($xres) && defined($yres) && $xres != -1) {
                                        $uri = "${xres}x$yres/$infobox$filename";
                                } elsif (defined($xres) && $xres == -1) {