Changeset 32514


Ignore:
Timestamp:
2018-10-11T20:37:31+13:00 (3 years ago)
Author:
ak19
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/docprint.pm

    r32512 r32514  
    3030package docprint;
    3131
     32use constant OUTPUT_NONE => 0;
    3233use constant OUTPUT_META_ONLY => 1;
    3334use constant OUTPUT_TEXT_ONLY => 2;
     
    4243sub get_section_xml_from_root {
    4344    my ($doc_obj, $options) = @_;
    44     return &recursive_get_section_xml($doc_obj,$doc_obj->get_top_section(), $options);
     45    return &recursive_get_section_xml($doc_obj, $doc_obj->get_top_section(), $options);
    4546}
    4647
     
    4849    my ($doc_obj, $section, $options) = @_;
    4950   
    50     # 'output' can be OUTPUT_ALL|OUTPUT_META_ONLY|OUTPUT_TEXT_ONLY
     51    # 'output' can be OUTPUT_ALL|OUTPUT_META_ONLY|OUTPUT_TEXT_ONLY|OUTPUT_NONE
    5152    # If not provided, it defaults to OUTPUT_ALL.
    5253    # If OUTPUT_ALL, the metadata and full text both go into doc.xml
    5354    # If OUTPUT_META_ONLY, the metadata goes into doc.xml and full text goes elsewhere (mysql db).
    5455    # If OUTPUT_TEXT_ONLY, the full text goes into doc.xml and metadata goes elsewhere (mysql db).
    55     # In the last two cases, an XML comment is left behind to indicate that the "missing" doc
    56     # information is stored elsewhere.
     56    # If OUTPUT_NONE, the full text and metadata goes elsewhere (mysql db)
     57    # In the last 3 cases, an XML comment is left behind as a 'breadcrumb' to indicate
     58    # that the "missing" doc information is stored elsewhere.
    5759    if(!defined $options) {
    58     $options = {'output' => OUTPUT_ALL };
     60    $options = { 'output' => OUTPUT_ALL };
    5961    }
    6062   
Note: See TracChangeset for help on using the changeset viewer.