X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5a68fd1378de2f66315dc897d426fb397764f75e..ecdb10646b89f6dec27cc140e9184086ea4210af:/SL/FU.pm

diff --git a/SL/FU.pm b/SL/FU.pm
index 27836e0ad..a005c1814 100644
--- a/SL/FU.pm
+++ b/SL/FU.pm
@@ -426,11 +426,11 @@ sub save_access_rights {
 
   my ($id)     = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $form->{login});
 
+  do_query($form, $dbh, qq|DELETE FROM follow_up_access WHERE what = ?|, $id);
+
   my $query    = qq|INSERT INTO follow_up_access (who, what) VALUES (?, ?)|;
   my $sth      = prepare_query($form, $dbh, $query);
 
-  do_query($form, $dbh, qq|DELETE FROM follow_up_access WHERE what = ?|, $id);
-
   while (my ($who, $access_allowed) = each %{ $params{access} }) {
     next unless ($access_allowed);