Changeset 15178 for gsdl/trunk/perllib/plugins/MARCXMLPlug.pm

Timestamp:

2008-04-10T08:51:05+12:00 (16 years ago)

Author:

kjdon

Message:

needed to add extra_metadata() call in xml_end_tag so that can get metadata from metadata.xml files

File:

• gsdl/trunk/perllib/plugins/MARCXMLPlug.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/MARCXMLPlug.pm

@@ -413 +413 @@
         print $outhandle "Warning: Unable for write out associated MARCXML file $tmp_marcxml_filename\n";
     }
+    
+    # include any metadata passed in from previous plugins 
+    # note that this metadata is associated with the top level section
+    
+    $self->extra_metadata ($doc_obj, 
+                   $doc_obj->get_top_section(), 
+                   $self->{'metadata'});
+    
 
     $self->add_OID($doc_obj,  $self->{'record_count'});