my $path = $me->{path};
my $sz = $SIZE{$scale} or die "unknown scale `$scale'";
+ if ($me->sz <= $sz)
+ { return $m->interp->apply_escapes("$IMGURL/$path", "u"); }
+
my $thumb = "$CACHE/scale.$sz/$path";
my $thumburl =
$m->interp->apply_escapes("$CACHEURL/scale.$sz/$path", "u");
}
}
- if ($me->sz <= $sz)
- { return $m->interp->apply_escapes("$IMGURL/$path", "u"); }
my $sc = $sz/$me->sz;
my $scaled = $img->create_scaled_image($sc*$wd, $sc*$ht);