Merge branch 'master' of lx-office.linet-services.de:lx-office-erp

[mfinanz.git] / SL / User.pm

diff --git a/SL/User.pm b/SL/User.pm
index d6b870552c37f6aedcde7650a7177183f8ca2804..d638220c2e41853e5397f81b2c65463780fbc90f 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -120,6 +120,12 @@ sub login {
 
     $self->create_schema_info_table($form, $dbh);
 
+    my $dbupdater_auth = SL::DBUpgrade2->new(form => $form, dbdriver => 'Pg', auth => 1)->parse_dbupdate_controls;
+    if ($dbupdater_auth->unapplied_upgrade_scripts($::auth->dbconnect)) {
+      $::lxdebug->leave_sub;
+      return -3;
+    }
+
     $rc = 0;
 
     my $dbupdater = SL::DBUpgrade2->new(form => $form, dbdriver => $myconfig{dbdriver})->parse_dbupdate_controls;