[Gd-chatter] r10776 - trunk/libraries/koala/sources/examples/wiki

[hannes at gwydiondylan.org]

Author: hannes
Date: Sat Jun  3 03:13:11 2006
New Revision: 10776

Modified:
   trunk/libraries/koala/sources/examples/wiki/admin.dylan
Log:
Bug: 7129
*fix editing of user rights

Modified: trunk/libraries/koala/sources/examples/wiki/admin.dylan
==============================================================================
--- trunk/libraries/koala/sources/examples/wiki/admin.dylan	(original)
+++ trunk/libraries/koala/sources/examples/wiki/admin.dylan	Sat Jun  3 03:13:11 2006
@@ -22,11 +22,11 @@
     for (privilege in $privileges)
       let was = any?(method(x) x = privilege end, user.access);
       let should-be = get-query-value(concatenate(user.username, ":", as(<string>, privilege)));
-      if (should-be & ~was)
+      if (should-be & was = #f)
         user.access := pair(privilege, user.access);
       end;
-      if (~should-be & was)
-        remove!(user.access, privilege);
+      if (was & should-be = #f)
+        user.access := remove!(user.access, privilege);
       end;
     end;
   end;