From: Sven Schöling <s.schoeling@linet-services.de>
Date: Fri, 9 Mar 2007 13:16:58 +0000 (+0000)
Subject: Eine Funktion auf Tracelevel 2 gesetzt
X-Git-Tag: release-2.4.3^2~616
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/07be726dc5e9d85f7e179e1341ffa70c8616935f?ds=inline

Eine Funktion auf Tracelevel 2 gesetzt
---

diff --git a/SL/Form.pm b/SL/Form.pm
index edf5de978..c0dee294d 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -959,7 +959,7 @@ sub datetonum {
 # Database routines used throughout
 
 sub dbconnect {
-  $main::lxdebug->enter_sub();
+  $main::lxdebug->enter_sub(2);
 
   my ($self, $myconfig) = @_;
 
@@ -974,7 +974,7 @@ sub dbconnect {
     $dbh->do($myconfig->{dboptions}) || $self->dberror($myconfig->{dboptions});
   }
 
-  $main::lxdebug->leave_sub();
+  $main::lxdebug->leave_sub(2);
 
   return $dbh;
 }