Changeset 847 for trunk/gsdl
- Timestamp:
- 1999-12-16T16:02:43+13:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/GMLPlug.pm
r840 r847 197 197 } 198 198 199 <<<<<<< GMLPlug.pm200 # add the associated files201 $assoc_files202 = $doc_obj->get_metadata($doc_obj->get_top_section(),203 "gsdlassocfile");204 my ($assoc_file_info);205 foreach $assoc_file_info (@$assoc_files) {206 my ($assoc_file, $mime_type) = split (":", $assoc_file_info);207 $doc_obj->associate_file(&util::filename_cat($parent_dir, $assoc_file),208 $assoc_file, $mime_type);209 =======210 199 # add the associated files 211 200 $assoc_files = $doc_obj->get_metadata($doc_obj->get_top_section(), "gsdlassocfile"); … … 216 205 $doc_obj->associate_file(&util::filename_cat($parent_dir, $assoc_file), 217 206 &util::filename_cat($dir, $assoc_file), $mime_type); 218 >>>>>>> 1.10219 220 207 } 221 208 $doc_obj->delete_metadata($doc_obj->get_top_section(), "gsdlassocfile");
Note:
See TracChangeset
for help on using the changeset viewer.