DB-Upgrade: Dauer jedes Upgrade-Scripts timen

[mfinanz.git] / SL / User.pm

diff --git a/SL/User.pm b/SL/User.pm
index 593707c82c0523e9ce9ec4b5f357bf75487feca2..f324e3629694f584e6413150e1d6b7e4224b5164 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -443,6 +443,8 @@ sub dbupdate2 {
 
   my @upgradescripts = $dbupdater->unapplied_upgrade_scripts($dbh);
 
+  $::lxdebug->log_time("DB upgrades commencing");
+
   foreach my $control (@upgradescripts) {
     # Apply upgrade. Control will only return to us if the upgrade has
     # been applied correctly and if the update has not requested user
@@ -453,6 +455,8 @@ sub dbupdate2 {
     $dbupdater->process_file($dbh, "sql/Pg-upgrade2/$control->{file}", $control);
   }
 
+  $::lxdebug->log_time("DB upgrades finished");
+
   $dbh->disconnect;
 }