Changeset 32522 for main/trunk/greenstone2/perllib

Timestamp:

2018-10-18T20:29:26+13:00 (6 years ago)

Author:

ak19

Message:

Fixing some syntax errors

File:

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

main/trunk/greenstone2/perllib/plugouts/MySQLPlugout.pm

@@ -159 +159 @@
     my $self = shift (@_);
     
-    if($proc_mode ne "all") { # TODO Q
+    if($self->{'process_mode'} ne "all") { # TODO Q
     $self->GreenstoneXMLPlugout::close_group_output();
     }
@@ -169 +169 @@
     my ($doc_obj, $doc_dir) = @_;
 
+    my $proc_mode = $self->{'process_mode'};
+    
     # 1. pre save out and saving debug handle
+    my ($docxml_outhandler, $output_file);
     if($proc_mode ne "all") { # TODO Q
-    my ($docxml_outhandler, $output_file) = $self->GreenstoneXMLPlugout::pre_saveas(@_);
+    ($docxml_outhandler, $output_file) = $self->GreenstoneXMLPlugout::pre_saveas(@_);
 
     $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    
 
-    if($proc_mode ne "all" ) { # if all, then nothing to go into doc.xml
+    if($proc_mode ne "all" ) { # if all, then nothing to go into doc.xml, otherwise:
+    
     # write the INVERSE into doc.xml as to what is written to the db
-    my $proc_mode = $self->{'process_mode'};
     
     my $docxml_output_options = { 'output' => docprint::OUTPUT_NONE }; # TODO Q