Changeset 21760 for main/trunk/greenstone2/perllib/plugins/ConvertBinaryFile.pm

Timestamp:

2010-03-03T11:09:07+13:00 (14 years ago)

Author:

kjdon

Message:

srclink now generated dynamically at runtime. instead of storing srclink metadata, we store srclink_file metadata, which can be a value (doc.doc) or a metadata format element (eg [SourceFile]).

File:

• main/trunk/greenstone2/perllib/plugins/ConvertBinaryFile.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/ConvertBinaryFile.pm

@@ -498 +498 @@
     # We use set instead of add here because we only want one value
     $doc_obj->set_utf8_metadata_element($cursection, "FileFormat", $file_type);
-    my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/doc.$doc_ext\">";
+    my $srclink_filename = "doc.$doc_ext";
+    #my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/doc.$doc_ext\">";
     if ($self->{'keep_original_filename'} == 1) {
-    $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">";
-    }
-    $doc_obj->add_utf8_metadata ($cursection, "srclink",  $doclink); 
+    $srclink_filename = "[SourceFile]";
+    #$doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">";
+    }
+    #$doc_obj->add_utf8_metadata ($cursection, "srclink",  $doclink); 
     $doc_obj->add_utf8_metadata ($cursection, "srcicon",  "_icon".$doc_ext."_"); 
-    $doc_obj->add_utf8_metadata ($cursection, "/srclink", "</a>"); 
-
+    #$doc_obj->add_utf8_metadata ($cursection, "/srclink", "</a>"); 
+    $doc_obj->add_utf8_metadata ($cursection, "srclink_file", $srclink_filename);
     return 1;
 }