Changeset 245

Timestamp:

1999-04-26T11:54:33+12:00 (25 years ago)

Author:

sjboddie

Message:

Small changes to allow metadata to be passed to plugins from
mgbuilder.pm - now may pass classifytype metadata

Location:

trunk/gsdl/perllib/plugins

Files:

• ArcPlug.pm (modified) (1 diff)
• GMLPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ArcPlug.pm

@@ -47 +47 @@
     # process each file
     foreach $subfile (@$file_list) {
-        # note: metadata is not carried on to the next level
+####        # note: metadata is not carried on to the next level - why ??? - I changed this - Stefan.
         my $tmp = &util::filename_cat ($file, $subfile->[0]);
         next if $tmp eq $file;
-        &plugin::read ($pluginfo, $base_dir, $tmp, {}, $processor);
+        &plugin::read ($pluginfo, $base_dir, $tmp, $metadata, $processor);
     }
     

trunk/gsdl/perllib/plugins/GMLPlug.pm

@@ -121 +121 @@
     $doc_obj->delete_metadata($doc_obj->get_top_section(), "gsdlassocfile");
 
+    # add metadata
+    foreach $field (keys(%$metadata)) {
+    # $metadata->{$field} may be an array reference
+    if (ref ($metadata->{$field}) eq "ARRAY") {
+        map { 
+        $doc_obj->add_metadata ($doc_obj->get_top_section(), $field, $_); 
+        } @{$metadata->{$field}};
+    } else {
+        $doc_obj->add_metadata ($doc_obj->get_top_section(), $field, $metadata->{$field}); 
+    }
+    }
+
+
     # assume the document has an OID