- Timestamp:
- 2010-03-01T13:03:47+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/ConvertBinaryFile.pm
r20766 r21742 498 498 # We use set instead of add here because we only want one value 499 499 $doc_obj->set_utf8_metadata_element($cursection, "FileFormat", $file_type); 500 my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[a rchivedir]/doc.$doc_ext\">";500 my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/doc.$doc_ext\">"; 501 501 if ($self->{'keep_original_filename'} == 1) { 502 $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[a rchivedir]/[SourceFile]\">";502 $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">"; 503 503 } 504 504 $doc_obj->add_utf8_metadata ($cursection, "srclink", $doclink);
Note:
See TracChangeset
for help on using the changeset viewer.