needed to modify acces on host alias table as well

diff --git a/server/qaccess.dc b/server/qaccess.dc
index f86f6b97bed29813bfb520ddeff84518c82df946..15632bf03f817aa0999d42bc5cdcb6af4ae4c1f5 100644 (file)
--- a/server/qaccess.dc
+++ b/server/qaccess.dc
@@ -405,6 +405,9 @@ access_ahal(q, argv, cl)
     char *client_type;
     int status, client_id;
 
+    if (q->type == RETRIEVE)
+      return(MR_SUCCESS);
+
     id = *(int *)argv[1];
 
     EXEC SQL SELECT count(name) INTO :cnt from hostalias WHERE mach_id = :id;
@@ -415,7 +418,6 @@ access_ahal(q, argv, cl)
      */
     if (q->type == APPEND && cnt >= 2)
       return(MR_PERM);
-
     EXEC SQL SELECT m.owner_type, m.owner_id, s.owner_type, s.owner_id
       INTO :mtype, :mid, :stype, :sid FROM machine m, subnet s
       WHERE m.mach_id=:id and s.snet_id=m.snet_id;