display picture size

[koha_gimpoz] / misc / gimpoz / import-images.pl

diff --git a/misc/gimpoz/import-images.pl b/misc/gimpoz/import-images.pl
index 2c72569..27946c6 100755 (executable)
--- a/misc/gimpoz/import-images.pl
+++ b/misc/gimpoz/import-images.pl
@@ -61,6 +61,7 @@ while(<$find>) {
        }
 
        my $image = GD::Image->new($path);
+       warn "# $path ", $image->width,"x",$image->height,$/;
        PutImage($biblionumber, $image, $replace);
 
        print dump( $biblionumber, $student, $lokacija, $inventarni_broj ),$/;