Changeset 16856 for gsdl/trunk/perllib/plugins/ImagePlugin.pm
- Timestamp:
- 2008-08-18T09:51:45+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ImagePlugin.pm
r16854 r16856 31 31 use strict; 32 32 no strict 'refs'; # allow filehandles to be variables and viceversa 33 no strict 'subs'; 34 35 use gsprintf 'gsprintf'; 33 36 34 37 sub BEGIN { … … 112 115 $self->generate_images($filename_full_path, $url_encoded_filename, $doc_obj, $doc_obj->get_top_section()); # should we check the return value? 113 116 } else { 114 # do some basic stuff115 # associate the image, fileformat, mimetype, srclink, srcicon116 # 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 } 117 120 } 118 121 #we have no text - adds dummy text and NoText metadata
Note:
See TracChangeset
for help on using the changeset viewer.