Changeset 16856


Ignore:
Timestamp:
2008-08-18T09:51:45+12:00 (13 years ago)
Author:
kjdon
Message:

in gli mode, print a warning about can't process images

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/ImagePlugin.pm

    r16854 r16856  
    3131use strict;
    3232no strict 'refs'; # allow filehandles to be variables and viceversa
     33no strict 'subs';
     34
     35use gsprintf 'gsprintf';
    3336
    3437sub BEGIN {
     
    112115    $self->generate_images($filename_full_path, $url_encoded_filename, $doc_obj, $doc_obj->get_top_section()); # should we check the return value?
    113116    } else {
    114     # do some basic stuff
    115     # associate the image, fileformat, mimetype, srclink, srcicon
    116     # do this if image magick not installed. but also if generate hasn't worked?? what about images too small?
     117    if ($gli) {
     118        &gsprintf(STDERR, "<Warning p='ImagePlugin' r='{ImageConverter.noconversionavailable}: {ImageConverter.".$self->{'no_image_conversion_reason'}."}'>");
     119    }
    117120    }
    118121    #we have no text - adds dummy text and NoText metadata
Note: See TracChangeset for help on using the changeset viewer.