Changeset 32514
- Timestamp:
- 2018-10-11T20:37:31+13:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/docprint.pm
r32512 r32514 30 30 package docprint; 31 31 32 use constant OUTPUT_NONE => 0; 32 33 use constant OUTPUT_META_ONLY => 1; 33 34 use constant OUTPUT_TEXT_ONLY => 2; … … 42 43 sub get_section_xml_from_root { 43 44 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); 45 46 } 46 47 … … 48 49 my ($doc_obj, $section, $options) = @_; 49 50 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 51 52 # If not provided, it defaults to OUTPUT_ALL. 52 53 # If OUTPUT_ALL, the metadata and full text both go into doc.xml 53 54 # If OUTPUT_META_ONLY, the metadata goes into doc.xml and full text goes elsewhere (mysql db). 54 55 # 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. 57 59 if(!defined $options) { 58 $options = { 'output' => OUTPUT_ALL };60 $options = { 'output' => OUTPUT_ALL }; 59 61 } 60 62
Note:
See TracChangeset
for help on using the changeset viewer.