X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4c2287d7f727f6a43000ed35db7884d51db11a5d..54e4131e091831e00a861fe2c4f53e344b87ddca:/SL/User.pm

diff --git a/SL/User.pm b/SL/User.pm
index 6ce3c41b1..2da621694 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -612,7 +612,7 @@ sub dbneedsupdate {
 
 ## LINET
 sub calc_version {
-  $main::lxdebug->enter_sub();
+  $main::lxdebug->enter_sub(2);
 
   my (@v, $version, $i);
 
@@ -626,7 +626,7 @@ sub calc_version {
     $version += $v[$i];
   }
 
-  $main::lxdebug->leave_sub();
+  $main::lxdebug->leave_sub(2);
   return $version;
 }
 
@@ -733,6 +733,7 @@ sub dbupdate {
       last if ($version < $mindb);
 
       # apply upgrade
+      $main::lxdebug->message(DEBUG2, "Appliying Update $upgradescript");
       $self->process_query($form, $dbh, "sql/" . $form->{"dbdriver"} . "-upgrade/$upgradescript", $str_maxdb);
 
       $version = $maxdb;