Index: openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2-oracle.xql,v
diff -u -N
--- openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2-oracle.xql	28 Aug 2003 09:41:41 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,22 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
-
-<fullquery name="add_user">      
-      <querytext>
-
-          begin
-              acs_permission.grant_permission(
-                  object_id => :object_id, 
-                  grantee_id => :one_user_id,
-                  privilege => 'read'
-              );
-          end;
-
-      </querytext>
-</fullquery>
-
-
- 
-</queryset>
Index: openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2-postgresql.xql	28 Aug 2003 09:41:41 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,16 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-<fullquery name="add_user">      
-      <querytext>
-
-            select acs_permission__grant_permission(:object_id, :one_user_id, 'read')
-
-      </querytext>
-</fullquery>
-
-
- 
-</queryset>
Index: openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2.tcl,v
diff -u -N -r1.5 -r1.5.2.1
--- openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2.tcl	5 Jan 2018 22:40:56 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2.tcl	18 Mar 2019 15:14:08 -0000	1.5.2.1
@@ -8,7 +8,7 @@
 
 db_transaction {
     foreach one_user_id $user_id {
-        db_exec_plsql add_user {}
+        permission::grant -party_id $one_user_id -object_id $object_id -privilege "read"
     }
 } on_error {
     ad_return_complaint 1 "We had a problem adding the users you selected. Sorry."