Fisheye: Tag 1.2.24.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/permissions/perm-modify-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2.24.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/permissions/perm-modify-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/acs-subsite/www/permissions/perm-modify.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-modify.tcl,v
diff -u -r1.4.2.4 -r1.4.2.5
--- openacs-4/packages/acs-subsite/www/permissions/perm-modify.tcl	20 May 2016 20:02:44 -0000	1.4.2.4
+++ openacs-4/packages/acs-subsite/www/permissions/perm-modify.tcl	11 Aug 2016 20:50:45 -0000	1.4.2.5
@@ -37,7 +37,6 @@
     set perm_array([ad_conn user_id],admin) add
 }
 
-set page "<ul>"
 
 db_transaction {
     db_foreach permissions_in_db {} {
@@ -62,20 +61,17 @@
         
         switch -- $perm_array($elm) {
             remove {
-                db_exec_plsql remove {}
-                append page "<li>select acs_permission__revoke_permission($object_id, $party_id, $privilege)"
+                permission::revoke -party_id $party_id -object_id $object_id -privilege $privilege
             }
             add {
-                db_exec_plsql add {}
-                append page "<li>select acs_permission__grant_permission($object_id, $party_id, $privilege)"
+                permission::grant -party_id $party_id -object_id $object_id -privilege $privilege
             }
         }
     }
 } on_error {
     ad_return_complaint 1 "Ooops, looks like we screwed up. Sorry. $errmsg<p> $::errorInfo"
 }
 
-append page "</ul>"
 
 ad_returnredirect $return_url