Changeset 32514

Timestamp:

2018-10-11T20:37:31+13:00 (6 years ago)

Author:

ak19

Message:

Also need OUTPUT_NONE as an option when docprint.pm writes out doc.xml

File:

• main/trunk/greenstone2/perllib/docprint.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/docprint.pm

@@ -30 +30 @@
 package docprint;
 
+use constant OUTPUT_NONE => 0;
 use constant OUTPUT_META_ONLY => 1;
 use constant OUTPUT_TEXT_ONLY => 2;
@@ -42 +43 @@
 sub get_section_xml_from_root {
     my ($doc_obj, $options) = @_;
-    return &recursive_get_section_xml($doc_obj,$doc_obj->get_top_section(), $options);
+    return &recursive_get_section_xml($doc_obj, $doc_obj->get_top_section(), $options);
 }
 
@@ -48 +49 @@
     my ($doc_obj, $section, $options) = @_;
     
-    # 'output' can be OUTPUT_ALL|OUTPUT_META_ONLY|OUTPUT_TEXT_ONLY
+    # 'output' can be OUTPUT_ALL|OUTPUT_META_ONLY|OUTPUT_TEXT_ONLY|OUTPUT_NONE
     # If not provided, it defaults to OUTPUT_ALL.
     # If OUTPUT_ALL, the metadata and full text both go into doc.xml
     # If OUTPUT_META_ONLY, the metadata goes into doc.xml and full text goes elsewhere (mysql db).
     # If OUTPUT_TEXT_ONLY, the full text goes into doc.xml and metadata goes elsewhere (mysql db).
-    # In the last two cases, an XML comment is left behind to indicate that the "missing" doc
-    # information is stored elsewhere.
+    # If OUTPUT_NONE, the full text and metadata goes elsewhere (mysql db)
+    # In the last 3 cases, an XML comment is left behind as a 'breadcrumb' to indicate
+    # that the "missing" doc information is stored elsewhere.
     if(!defined $options) { 
-    $options = {'output' => OUTPUT_ALL };
+    $options = { 'output' => OUTPUT_ALL };
     }