Changeset 17483
- Timestamp:
- 2008-10-06T15:10:31+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ImagePlugin.pm
r17250 r17483 119 119 &gsprintf(STDERR, "<Warning p='ImagePlugin' r='{ImageConverter.noconversionavailable}: {ImageConverter.".$self->{'no_image_conversion_reason'}."}'>"); 120 120 } 121 # all we do is add the original image as an associated file, and set up srclink etc 122 my $assoc_file = $doc_obj->get_assocfile_from_sourcefile(); 123 my $section = $doc_obj->get_top_section(); 124 125 $doc_obj->associate_file($filename_full_path, $assoc_file, "", $section); 126 127 $doc_obj->add_metadata ($section, "srclink", "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">"); 128 $doc_obj->add_metadata ($section, "/srclink", "</a>"); 129 $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\" width=\"100\">"); 130 121 131 } 122 132 #we have no text - adds dummy text and NoText metadata
Note:
See TracChangeset
for help on using the changeset viewer.