Changeset 17483 for gsdl/trunk

Timestamp:

2008-10-06T15:10:31+13:00 (16 years 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

File:

• 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