Changeset 17483 for gsdl

Timestamp:

2008-10-06 15:10:31 (2 months ago)

Author:

kjdon

Message:

I just discovered that if image magick was not installed, you weren't getting the image saved as an associated file. So now it is, and can be viewed using srcicon and srclink

Files:

• gsdl/trunk/perllib/plugins/ImagePlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/ImagePlugin.pm

@@ -119 +119 @@
-            &gsprintf(STDERR, "<Warning p='ImagePlugin' r='{ImageConverter.noconversionavailable}: {ImageConverter.".$self->{'no_image_conversion_reason'}."}'>");
-        }
+        # all we do is add the original image as an associated file, and set up srclink etc
+        my $assoc_file = $doc_obj->get_assocfile_from_sourcefile();
+        my $section = $doc_obj->get_top_section();
+
+        $doc_obj->associate_file($filename_full_path, $assoc_file, "", $section);
+
+        $doc_obj->add_metadata ($section, "srclink", "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">");
+        $doc_obj->add_metadata ($section, "/srclink", "</a>");
+        $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\" width=\"100\">");
+
-    }
-    #we have no text - adds dummy text and NoText metadata