Changeset 9241
- Timestamp:
- 2005-03-01T22:34:08+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/doc.pm
r9038 r9241 345 345 346 346 if ($data->[0] eq "gsdlassocfile"){ 347 $escaped_value =~ m/^(.*?):(.*):$/; 348 349 my $assfilePath = $dirPath . '/'. $1; 347 348 $escaped_value =~ m/^(.*?):(.*):(.*)$/; 349 my $assoc_file = $1; 350 my $mime_type = $2; 351 my $assoc_dir = $3; 352 353 my $assfilePath = $dirPath . '/'. $assoc_file; 350 354 ++$fileID; 351 355 352 $all_text .= ' <mets:file MIMETYPE="'.$ 2.'" ID="default.'.$fileID. '">'. "\n";356 $all_text .= ' <mets:file MIMETYPE="'.$mime_type.'" ID="default.'.$fileID. '">'. "\n"; 353 357 $all_text .= ' <mets:FLocat LOCTYPE="URL" xlink:href="file:'.$assfilePath.'" />'."\n"; 354 358 … … 1096 1100 push (@metadata, $data->[1]) if ($data_name eq $field); 1097 1101 } 1098 1102 1099 1103 return \@metadata; 1100 1104 }
Note:
See TracChangeset
for help on using the changeset viewer.