Changeset 22654 for main/trunk/greenstone2

Timestamp:

2010-08-17T16:58:23+12:00 (14 years ago)

Author:

mdewsnip

Message:

Removed some old (commented out) "[srclink]" code, as part of tidying up the dmsafe stuff.

File:

• main/trunk/greenstone2/perllib/plugins/ConvertBinaryFile.pm (modified) (2 diffs)

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

@@ -477 +477 @@
     if ($self->{'keep_original_filename'} == 1) {
     # this should be the same filename that was used for the Source and SourceFile metadata, 
-    # as we will use [SourceFile] in the srclink
+    # as we will use [SourceFile] in the srclink (below)
     $assocfilename = $doc_obj->get_assocfile_from_sourcefile();
     }
@@ -485 +485 @@
     $doc_obj->set_utf8_metadata_element($cursection, "FileFormat", $file_type);
     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) {
     $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_file", $srclink_filename);
     return 1;