X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/7712480e4a082f84a2229f5b1a90d79a6c01255b..6b87451f5f6d97ce2a3bfcddbca7f715ed9a1333:/SL/Form.pm

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