Changeset 22655 for main/trunk/greenstone2/perllib/plugins/ConvertToRogPlugin.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/ConvertToRogPlugin.pm (modified) (1 diff)

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

@@ -444 +444 @@
     $doc_obj->associate_file($filename, "doc.$doc_ext", undef, $cursection);
 
-    #my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/doc.$doc_ext\">";
-    #$doc_obj->add_utf8_metadata ($cursection, "srclink",  $doclink); 
     $doc_obj->add_metadata ($cursection, "srclink_file", "doc.$doc_ext"); 
     $doc_obj->add_utf8_metadata ($cursection, "srcicon",  "_icon".$doc_ext."_"); 
-    #$doc_obj->add_utf8_metadata ($cursection, "/srclink", "</a>"); 
+
     return $ret_val;
 }