From 0f2d4920a798878ab2ff60ba11b190854c23c5fb Mon Sep 17 00:00:00 2001
From: Udo Spallek <info@wissensvermittlung.com>
Date: Sat, 25 Mar 2006 01:23:04 +0000
Subject: [PATCH] Some debug messages for debuglevel LXDebug::QUERY

---
 SL/USTVA.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/SL/USTVA.pm b/SL/USTVA.pm
index 84dc4f312..51296f1be 100644
--- 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);
 
-- 
2.20.1