Fix infobox with DPR != 1.

[pr0n] / perl / update-image-cache.pl

diff --git a/perl/update-image-cache.pl b/perl/update-image-cache.pl
index 213a7a0cb1ee6b14386161357762e699ad6b6318..3857ae22db4918d3124a1d9e64c5e55a7d4b23fe 100755 (executable)
--- a/perl/update-image-cache.pl
+++ b/perl/update-image-cache.pl
@@ -118,7 +118,7 @@ while (my $ref = $q->fetchrow_hashref) {
        next unless $any_old;
        unlink (@files);
        if (scalar @noboxres > 0) {
        next unless $any_old;
        unlink (@files);
        if (scalar @noboxres > 0) {

-               Sesse::pr0n::Common::ensure_cached($r, $ref->{'filename'}, $id, $ref->{'width'}, $ref->{'height'}, 1, sort_res(@noboxres));
+               Sesse::pr0n::Common::ensure_cached($r, $ref->{'filename'}, $id, $ref->{'width'}, $ref->{'height'}, sort_res(@noboxres));

        }
        if (scalar @boxres > 0) {
                Sesse::pr0n::Common::ensure_infobox_cached($r, $ref->{'filename'}, $id, $ref->{'width'}, $ref->{'height'}, 1, sort_res(@boxres));
        }
        if (scalar @boxres > 0) {
                Sesse::pr0n::Common::ensure_infobox_cached($r, $ref->{'filename'}, $id, $ref->{'width'}, $ref->{'height'}, 1, sort_res(@boxres));