Changeset 38163 for main/trunk/greenstone2/perllib/plugins/ImageConverter.pm

Timestamp:

2023-09-19T10:54:07+12:00 (8 months ago)

Author:

davidb

Message:

Plugin updated to auto-orient images by default. Plugin option to disable this, if it is not wanted/needed for some reason

File:

• main/trunk/greenstone2/perllib/plugins/ImageConverter.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugins/ImageConverter.pm

@@ -96 +96 @@
     'range' => "1,",
     'reqd' => "no" },
+      { 'name' => "disable_auto_orient",
+    'desc' => "{ImageConverter.disable_auto_orient}",
+    'type' => "flag",
+    'reqd' => "no" },
     { 'name' => "store_original_image",
       'desc' => "{ImageConverter.store_original_image}",
@@ -508 +512 @@
 
     # Generate and run the convert command
-    my $convert_command = "\"".&util::get_perl_exec()."\" -S gs-magick.pl --verbosity=".$self->{'verbosity'}." convert -interlace plane -verbose $convert_options \"$source_file_path\" \"$target_file_path\"";
+    my $convert_command = "\"".&util::get_perl_exec()."\" -S gs-magick.pl --verbosity=".$self->{'verbosity'};
+    my $opt_auto_orient = ($self->{'disable_auto_orient'}) ? "" : "-auto-orient";
+    
+    $convert_command .= " convert -interlace plane -verbose $convert_options \"$source_file_path\" $opt_auto_orient \"$target_file_path\"";
 
     my $print_info = { 'message_prefix' => $convert_id,