Changeset 16856

Show
Ignore:
Timestamp:
18.08.2008 09:51:45 (11 years ago)
Author:
kjdon
Message:

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

Files:
1 modified

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