white background on pop-up pictures

[keramika-neolitik] / csv2js.pl

diff --git a/csv2js.pl b/csv2js.pl
index 5d9debf..a1fa2d3 100755 (executable)
--- a/csv2js.pl
+++ b/csv2js.pl
@@ -28,7 +28,8 @@ foreach my $i ( @$aoh ) {
                next;
        }
 
-       system "convert -trim -geometry 400x $source $image";
+       #system "convert -trim -geometry 400x $source $image";
+       system qq{convert -fill white -draw "color 1,1 floodfill" -trim -geometry 400x $source $image};
        #system "convert $image -scale 100x100 -gravity center -background white -extent 100x100 $thumb";
        system qq{convert $source -fill white -draw "color 1,1 floodfill" -scale 100x100 -gravity center -background white -extent 100x100 $thumb};
        $i->{image} = $image;