Changeset 17015 for gsdl/trunk/perllib/plugouts
- Timestamp:
- 2008-08-26T19:49:25+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm
r16462 r17015 634 634 $all_text .= " <mets:fileGrp ID=\"$id_root\">\n"; 635 635 636 my $assfilePath = ($assoc_dir eq "") ? $assoc_file : "$assoc_dir/$assoc_file"; 636 # The assoc_file's name may be url-encoded, so the xlink_href in the <mets:FLocat> 637 # element must be the url to this (possibly url-encoded) filename 638 my $assocfile_url = &unicode::filename_to_url($assoc_file); 639 my $assfilePath = ($assoc_dir eq "") ? $assocfile_url : "$assoc_dir/$assocfile_url"; 637 640 ++$fileID; 638 641 … … 675 678 676 679 my $fdomain = "http://$fserver:$fport"; 677 $xlink_href 680 $xlink_href = "xlink:href=\"$fdomain$gsdl_href\""; 678 681 } 679 682 680 683 my $top_section = $doc_obj->get_top_section(); 681 684 my $id = $doc_obj->get_metadata_element($top_section,"Identifier"); 682 685 683 686 $all_text .= " <mets:file $mime_attr $id_attr $opt_owner_id >\n"; 684 687 $all_text .= " <mets:FLocat LOCTYPE=\"URL\" $xlink_href $xlink_title />\n"; 685 688 686 689 $all_text .= " </mets:file>\n"; 687 690
Note:
See TracChangeset
for help on using the changeset viewer.