X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/918365347037c5ebcb9eb229e5925dca456a7fd1..e1cb00366d40cc3a1b07e065b51ad39c84baf7e6:/SL/DBUpgrade2.pm?ds=inline

diff --git a/SL/DBUpgrade2.pm b/SL/DBUpgrade2.pm
index c521a4cf7..6d8129c7e 100644
--- a/SL/DBUpgrade2.pm
+++ b/SL/DBUpgrade2.pm
@@ -124,13 +124,13 @@ sub _control_error {
 }
 
 sub _dbupdate2_calculate_depth {
-  $main::lxdebug->enter_sub();
+  $main::lxdebug->enter_sub(2);
 
   my ($tree, $tag) = @_;
 
   my $node = $tree->{$tag};
 
-  return $main::lxdebug->leave_sub() if (defined($node->{"depth"}));
+  return $main::lxdebug->leave_sub(2) if (defined($node->{"depth"}));
 
   my $max_depth = 0;
 
@@ -142,7 +142,7 @@ sub _dbupdate2_calculate_depth {
 
   $node->{"depth"} = $max_depth + 1;
 
-  $main::lxdebug->leave_sub();
+  $main::lxdebug->leave_sub(2);
 }
 
 sub sort_dbupdate_controls {