Changeset 20651 for gsdl/trunk/perllib/plugouts/MARCXMLPlugout.pm

Timestamp:

2009-09-21T13:35:55+12:00 (14 years ago)

Author:

davidb

Message:

Updated to support incremental exporting

File:

• gsdl/trunk/perllib/plugouts/MARCXMLPlugout.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugouts/MARCXMLPlugout.pm

@@ -100 +100 @@
     }
     
- 
+    $self->process_metafiles_metadata ($doc_obj);
+
     my $output_dir = $self->get_output_dir();
     &util::mk_all_dir ($output_dir) unless -e $output_dir;
@@ -117 +118 @@
     $self->output_xml_footer($outhandler,"MARCXML");  
     $self->close_xslt_pipe(); 
-              
+
+    $self->{'short_doc_file'} = util::filename_cat ($doc_dir, "marc.xml");  
+
+    $self->store_output_info_reference($doc_obj);              
 }