Changeset 24219 for main/trunk/greenstone2/perllib/plugins/BasePlugin.pm
- Timestamp:
- 2011-07-01T21:05:19+12:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/BasePlugin.pm
r23832 r24219 1300 1300 my ($pre_doc_ext) = ($file_extended_ext =~ m/^(.*)\..*$/); 1301 1301 my ($doc_ext) = ($tail_filename =~ m/^.*\.(.*)$/); 1302 my $start_doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/{Or}{[parent(Top):assocfilepath],[assocfilepath]}/$url_tail_filename\">"; 1302 1303 ## my $start_doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/{Or}{[parent(Top):assocfilepath],[assocfilepath]}/$url_tail_filename\">"; 1304 my $start_doclink = "<a href=\'_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/$url_tail_filename\'>"; 1305 my $start_doclink_gs3 = "<a href=\'_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/$url_tail_filename\'>"; 1306 1303 1307 my $srcicon = "_icon".$doc_ext."_"; 1304 1308 my $end_doclink = "</a>"; 1305 1309 1306 1310 my $assoc_form = "$start_doclink\{If\}{$srcicon,$srcicon,$doc_ext\}$end_doclink"; 1311 1312 $doc_obj->add_utf8_metadata ($cursection, "equivDocLink", $start_doclink); 1313 $doc_obj->add_utf8_metadata ($cursection, "equivDocIcon", $srcicon); 1314 $doc_obj->add_utf8_metadata ($cursection, "/equivDocLink", $end_doclink); 1307 1315 1308 1316 if (defined $pre_doc_ext && $pre_doc_ext ne "") { … … 1313 1321 # for multiple metadata such as [mp3.assoclink] 1314 1322 $doc_obj->add_utf8_metadata ($cursection, "$doc_ext.assoclink", $assoc_form); 1315 1323 1316 1324 $equiv_form .= " $assoc_form"; 1317 1325 }
Note:
See TracChangeset
for help on using the changeset viewer.