Changeset 16856 for gsdl/trunk/perllib/plugins/ImagePlugin.pm

Timestamp:

2008-08-18T09:51:45+12:00 (16 years ago)

Author:

kjdon

Message:

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

File:

• gsdl/trunk/perllib/plugins/ImagePlugin.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/ImagePlugin.pm

@@ -31 +31 @@
 use strict;
 no strict 'refs'; # allow filehandles to be variables and viceversa
+no strict 'subs';
+
+use gsprintf 'gsprintf';
 
 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?
     } else {
-    # do some basic stuff
-    # associate the image, fileformat, mimetype, srclink, srcicon
-    # do this if image magick not installed. but also if generate hasn't worked?? what about images too small?
+    if ($gli) {
+        &gsprintf(STDERR, "<Warning p='ImagePlugin' r='{ImageConverter.noconversionavailable}: {ImageConverter.".$self->{'no_image_conversion_reason'}."}'>");
+    }
     }
     #we have no text - adds dummy text and NoText metadata