Changeset 32514

Show
Ignore:
Timestamp:
11.10.2018 20:37:31 (6 weeks ago)
Author:
ak19
Message:

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

Files:
1 modified

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