Changeset 22655 for main/trunk/greenstone2/perllib/plugins/OpenDocumentPlugin.pm

Timestamp:

2010-08-17T17:05:03+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/OpenDocumentPlugin.pm (modified) (1 diff)

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

@@ -262 +262 @@
 
     #setup to doclink thingi
-    #my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/$file_only\">";
-    #$doc_obj->add_utf8_metadata ("", "srclink",  $doclink); 
     $doc_obj->add_metadata ("", "srclink_file", "[SourceFile]"); 
     $doc_obj->add_utf8_metadata ("", "srcicon",  "<img border=\"0\" align=\"absmiddle\" src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/thumbnail.png\" alt=\"View the Open document\" title=\"View the Open document\">"); 
-    #$doc_obj->add_utf8_metadata ("", "/srclink", "</a>"); 
     $self->set_Source_metadata($doc_obj, $file_only);
      $doc_obj->set_utf8_metadata_element("", "FileSize", (-s $filename));