Some debug messages for debuglevel LXDebug::QUERY

diff --git a/SL/USTVA.pm b/SL/USTVA.pm
index 84dc4f3..51296f1 100644 (file)
--- a/SL/USTVA.pm
+++ b/SL/USTVA.pm
@@ -861,7 +861,10 @@ sub get_accounts_ustva {
   my $accno;
   my $ref;
 
-  #print $query;
+  # Show all $query in Debuglevel LXDebug::QUERY
+  $callingdetails = (caller (0))[3];
+  $main::lxdebug->message(LXDebug::QUERY, "$callingdetails \$query=\n $query");
+              
   my $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);