Changeset 25345 for main/trunk/greenstone2/perllib/plugins/BasePlugin.pm
- Timestamp:
- 2012-04-05T14:49:08+12:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/BasePlugin.pm
r24564 r25345 1316 1316 my ($doc_ext) = ($tail_filename =~ m/^.*\.(.*)$/); 1317 1317 1318 ## my $start_doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/{Or}{[parent(Top):assocfilepath],[assocfilepath]}/$url_tail_filename\">"; 1319 my $start_doclink = "<a href=\'_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/$url_tail_filename\'>"; 1318 # the greenstone 2 stuff 1319 my $start_doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/{Or}{[parent(Top):assocfilepath],[assocfilepath]}/$url_tail_filename\">"; 1320 #my $start_doclink = "<a href=\'_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/$url_tail_filename\'>"; 1320 1321 my $start_doclink_gs3 = "<a href=\'_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/$url_tail_filename\'>"; 1321 1322 … … 1325 1326 my $assoc_form = "$start_doclink\{If\}{$srcicon,$srcicon,$doc_ext\}$end_doclink"; 1326 1327 1327 $doc_obj->add_utf8_metadata ($cursection, "equivDocLink", $start_doclink);1328 $doc_obj->add_utf8_metadata ($cursection, "equivDocIcon", $srcicon);1329 $doc_obj->add_utf8_metadata ($cursection, "/equivDocLink", $end_doclink);1330 1328 1331 1329 if (defined $pre_doc_ext && $pre_doc_ext ne "") { … … 1338 1336 1339 1337 $equiv_form .= " $assoc_form"; 1338 1339 # following are used for greenstone 3, 1340 $doc_obj->add_utf8_metadata ($cursection, "equivDocLink", $start_doclink_gs3); 1341 $doc_obj->add_utf8_metadata ($cursection, "equivDocIcon", $srcicon); 1342 $doc_obj->add_utf8_metadata ($cursection, "/equivDocLink", $end_doclink); 1343 1340 1344 } 1341 1345 $doc_obj->add_utf8_metadata ($cursection, "equivlink", $equiv_form);
Note:
See TracChangeset
for help on using the changeset viewer.