Ignore:
Timestamp:
05/21/18 12:12:22 (3 years ago)
Author:
kjdon
Message:

use new return values from ImageConverter::convert

File:
1 edited

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;
Note: See TracChangeset for help on using the changeset viewer.