Changeset 32522

Show
Ignore:
Timestamp:
18.10.2018 20:29:26 (5 weeks ago)
Author:
ak19
Message:

Fixing some syntax errors

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugouts/MySQLPlugout.pm

    r32521 r32522  
    159159    my $self = shift (@_); 
    160160     
    161     if($proc_mode ne "all") { # TODO Q 
     161    if($self->{'process_mode'} ne "all") { # TODO Q 
    162162    $self->GreenstoneXMLPlugout::close_group_output(); 
    163163    } 
     
    169169    my ($doc_obj, $doc_dir) = @_; 
    170170 
     171    my $proc_mode = $self->{'process_mode'}; 
     172     
    171173    # 1. pre save out and saving debug handle 
     174    my ($docxml_outhandler, $output_file); 
    172175    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(@_); 
    174177 
    175178    $self->{'debug_outhandle'} = $docxml_outhandler if ($self->{'debug'}); # STDOUT if debug 
     
    183186    # 2. overriding saving behaviour to do what the superclass does PLUS saving to sql db     
    184187 
    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     
    186190    # write the INVERSE into doc.xml as to what is written to the db 
    187     my $proc_mode = $self->{'process_mode'}; 
    188191     
    189192    my $docxml_output_options = { 'output' => docprint::OUTPUT_NONE }; # TODO Q