From: Udo Spallek <info@wissensvermittlung.com>
Date: Sat, 25 Mar 2006 01:23:04 +0000 (+0000)
Subject: Some debug messages for debuglevel LXDebug::QUERY
X-Git-Tag: release-2.4.0^2~297
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=0f2d4920a798878ab2ff60ba11b190854c23c5fb;p=kivitendo-erp.git

Some debug messages for debuglevel LXDebug::QUERY
---

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);