X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/14c1b704816c9dcfebca1d0bf9fd0e2fc2d253e4..5114d0d5cf6da99d380b83a4ad10579c4804fac3:/SL/User.pm

diff --git a/SL/User.pm b/SL/User.pm
index 487236800..102b9382e 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -39,7 +39,7 @@ package User;
 use IO::File;
 use Fcntl qw(:seek);
 
-use SL::Auth;
+#use SL::Auth;
 use SL::DBUpgrade2;
 use SL::DBUtils;
 use SL::Iconv;
@@ -971,6 +971,11 @@ sub create_employee_entry {
   my $myconfig        = shift;
   my $update_existing = shift;
 
+  if (!does_table_exist($dbh, 'employee')) {
+    $main::lxdebug->leave_sub();
+    return;
+  }
+
   # add login to employee table if it does not exist
   # no error check for employee table, ignore if it does not exist
   my ($id)  = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $self->{login});