Changeset 32185

Show
Ignore:
Timestamp:
21.05.2018 12:12:22 (3 months ago)
Author:
kjdon
Message:

use new return values from ImageConverter::convert

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugins/PagedImagePlugin.pm

    r31492 r32185  
    438438     
    439439    my ($this_filetype) = $filename_full_path =~ /\.([^\.]*)$/; 
    440     my $result = $self->convert($filename_full_path, $this_filetype, "-rotate 180", "ROTATE"); 
    441     my ($new_filename) = ($result =~ /=>(.*\.$this_filetype)/); 
     440    my ($result, $result_str, $new_filename) = $self->convert($filename_full_path, $this_filetype, "-rotate 180", "ROTATE"); 
     441 
    442442    if (-e "$new_filename") { 
    443443    return $new_filename;