Changeset 32185

Timestamp:

2018-05-21T12:12:22+12:00 (6 years ago)

Author:

kjdon

Message:

use new return values from ImageConverter::convert

File:

• main/trunk/greenstone2/perllib/plugins/PagedImagePlugin.pm (modified) (1 diff)

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

@@ -438 +438 @@
     
     my ($this_filetype) = $filename_full_path =~ /\.([^\.]*)$/;
-    my $result = $self->convert($filename_full_path, $this_filetype, "-rotate 180", "ROTATE");
-    my ($new_filename) = ($result =~ /=>(.*\.$this_filetype)/);
+    my ($result, $result_str, $new_filename) = $self->convert($filename_full_path, $this_filetype, "-rotate 180", "ROTATE");
+
     if (-e "$new_filename") {
     return $new_filename;