added očuvan dio posude split into array

[keramika-neolitik] / csv2js.pl

diff --git a/csv2js.pl b/csv2js.pl
index a1fa2d3..cdba38b 100755 (executable)
--- a/csv2js.pl
+++ b/csv2js.pl
@@ -31,7 +31,7 @@ foreach my $i ( @$aoh ) {
        #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};
+       system qq{convert $source -fill white -draw "color 1,1 floodfill" -scale 100x100 -gravity center -gravity south -background white -extent 100x100 $thumb};
        $i->{image} = $image;
        $i->{thumbnail} = $thumb;
 #      $i->{label} = $i->{opis_predmeta};