Changeset 32576 for main

Timestamp:

2018-11-06T15:27:57+13:00 (5 years ago)

Author:

ak19

Message:

Tested CSVPlugin. Some helpful debug statements are logged to STDERR by gssql when writing out stuff to the DB if GS SQL Plugout explicitly sets verbosity at 3 or higher

File:

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

main/trunk/greenstone2/perllib/gssql.pm

@@ -388 +388 @@
     if($debug_only) {
     # just print the statement we were going to execute
+    print $debug_out $sth->{'Statement'} . "($doc_oid, $section_name, $meta_name, $escaped_meta_value)\n";
+    }
+    else {
+    print STDERR $sth->{'Statement'} . "($doc_oid, $section_name, $meta_name, $escaped_meta_value)\n" if $self->{'verbosity'} > 2;
     
-    print $debug_out $sth->{'Statement'} . "($doc_oid, $section_name, $meta_name, $escaped_meta_value)\n";
-    } else {
     $sth->execute($doc_oid, $section_name, $meta_name, $escaped_meta_value)
         || warn ("Unable to write metadata row to db:\n\tOID $doc_oid, section $section_name,\n\tmeta name: $meta_name, val: $escaped_meta_value");
@@ -411 +413 @@
     # Now we're ready to execute the command, unless we're only debugging
 
+    # just print the statement we were going to execute, minus the fulltxt value
+    my $txt_repr = $$section_textref ? "<TXT>" : "NULL";    
     if($debug_only) {
-    # just print the statement we were going to execute, minus the fulltxt value
-    my $txt_repr = $$section_textref ? "<TXT>" : "NULL";
     print $debug_out $sth->{'Statement'} . "($doc_oid, $section_name, $txt_repr)\n";
-    } else {
+    }
+    else {  
+    print STDERR $sth->{'Statement'} . "($doc_oid, $section_name, $txt_repr)\n" if $self->{'verbosity'} > 2;
+    
     $sth->execute($doc_oid, $section_name, $$section_textref)
         || warn ("Unable to write fulltxt row to db for row:\n\tOID $doc_oid, section $section_name");