Changeset 22654 for main/trunk/greenstone2/perllib
- Timestamp:
- 2010-08-17T16:58:23+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/ConvertBinaryFile.pm
r22597 r22654 477 477 if ($self->{'keep_original_filename'} == 1) { 478 478 # this should be the same filename that was used for the Source and SourceFile metadata, 479 # as we will use [SourceFile] in the srclink 479 # as we will use [SourceFile] in the srclink (below) 480 480 $assocfilename = $doc_obj->get_assocfile_from_sourcefile(); 481 481 } … … 485 485 $doc_obj->set_utf8_metadata_element($cursection, "FileFormat", $file_type); 486 486 my $srclink_filename = "doc.$doc_ext"; 487 #my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/doc.$doc_ext\">";488 487 if ($self->{'keep_original_filename'} == 1) { 489 488 $srclink_filename = "[SourceFile]"; 490 #$doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">"; 491 } 492 #$doc_obj->add_utf8_metadata ($cursection, "srclink", $doclink); 489 } 493 490 $doc_obj->add_utf8_metadata ($cursection, "srcicon", "_icon".$doc_ext."_"); 494 #$doc_obj->add_utf8_metadata ($cursection, "/srclink", "</a>");495 491 $doc_obj->add_utf8_metadata ($cursection, "srclink_file", $srclink_filename); 496 492 return 1;
Note:
See TracChangeset
for help on using the changeset viewer.