Changeset 32522
- Timestamp:
- 2018-10-18T20:29:26+13:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/MySQLPlugout.pm
r32521 r32522 159 159 my $self = shift (@_); 160 160 161 if($ proc_modene "all") { # TODO Q161 if($self->{'process_mode'} ne "all") { # TODO Q 162 162 $self->GreenstoneXMLPlugout::close_group_output(); 163 163 } … … 169 169 my ($doc_obj, $doc_dir) = @_; 170 170 171 my $proc_mode = $self->{'process_mode'}; 172 171 173 # 1. pre save out and saving debug handle 174 my ($docxml_outhandler, $output_file); 172 175 if($proc_mode ne "all") { # TODO Q 173 my($docxml_outhandler, $output_file) = $self->GreenstoneXMLPlugout::pre_saveas(@_);176 ($docxml_outhandler, $output_file) = $self->GreenstoneXMLPlugout::pre_saveas(@_); 174 177 175 178 $self->{'debug_outhandle'} = $docxml_outhandler if ($self->{'debug'}); # STDOUT if debug … … 183 186 # 2. overriding saving behaviour to do what the superclass does PLUS saving to sql db 184 187 185 if($proc_mode ne "all" ) { # if all, then nothing to go into doc.xml 188 if($proc_mode ne "all" ) { # if all, then nothing to go into doc.xml, otherwise: 189 186 190 # write the INVERSE into doc.xml as to what is written to the db 187 my $proc_mode = $self->{'process_mode'};188 191 189 192 my $docxml_output_options = { 'output' => docprint::OUTPUT_NONE }; # TODO Q
Note:
See TracChangeset
for help on using the changeset viewer.