Changeset 32542 for main/trunk/greenstone2/perllib/plugouts/GreenstoneXMLPlugout.pm

Timestamp:

2018-10-25T21:17:02+13:00 (6 years ago)

Author:

ak19

Message:

Instead of the docoid being stored in the docsql-<OID>.xml filename, all filenames produced are back to being docsql.xml, but the root element Archive now contains the doc oid as attribute: <Archive docoid="oid">

File:

• main/trunk/greenstone2/perllib/plugouts/GreenstoneXMLPlugout.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugouts/GreenstoneXMLPlugout.pm

@@ -190 +190 @@
     # only output the header if we have started a new doc
     if (!$self->is_group() || $self->{'new_doc_dir'}) {
-    $self->output_xml_header($outhandler);
+    $self->output_xml_header($outhandler, $doc_obj->get_OID());
     }
  
@@ -238 +238 @@
 sub output_xml_header {
     my $self = shift (@_);
-    my ($outhandle) = @_;
+    my ($outhandle, $doc_oid) = @_;
 
     print $outhandle '<?xml version="1.0" encoding="utf-8" standalone="no"?>' . "\n";