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

diff --git a/SL/User.pm b/SL/User.pm
index 487236800..a49b3b5c6 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -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});