Changeset 32584 for main/trunk/greenstone2/perllib/plugins/GreenstoneSQLPlugin.pm

Timestamp:

2018-11-08T17:28:00+13:00 (5 years ago)

Author:

ak19

Message:

Some more tidying up of the code.

File:

• main/trunk/greenstone2/perllib/plugins/GreenstoneSQLPlugin.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugins/GreenstoneSQLPlugin.pm

@@ -407 +407 @@
     my %attr_hash = %_; # right way, see OAIPlugin.pm
     $self->{'doc_oid'} = $attr_hash{'docoid'};
-    ##print STDERR "XXXXXXXXXXXXXX in SQLPlugin::xml_start_tag()\n";
     print $outhandle "Extracted OID from docsql.xml: ".$self->{'doc_oid'}."\n"
         if $self->{'verbosity'} > 2;
@@ -448 +447 @@
     
     print STDERR "   GreenstoneSQLPlugin processing doc $oid (reading into docobj from SQL db)\n"
-    if $self->{'verbosity'} > 0;
+    if $self->{'verbosity'};
     
     if($proc_mode eq "all" || $proc_mode eq "meta_only") {