Make sure photos are shrunk.

mysociety · Oct 14, 2024 · eebbe4f · eebbe4f
1 parent 2597e5a
commit eebbe4f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/perllib/FixMyStreet/App/Model/PhotoSet.pm b/perllib/FixMyStreet/App/Model/PhotoSet.pm
@@ -442,7 +442,7 @@ sub shrink_all_to_size {
             $shrunk_blob = FixMyStreet::ImageMagick->new(blob => $original_blob)
                             ->shrink_to_percentage($percent)
                             ->as_blob;
-            $percent = $percent * $resize_percent;
+            $percent = $percent * $resize_percent / 100;
         } while (length $shrunk_blob > $size_bytes);
 
         $images[$i] = $shrunk_blob;