Index: openacs-4/packages/cms/www/modules/permissions/permission-alter.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/permissions/permission-alter.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/cms/www/modules/permissions/permission-alter.tcl	24 May 2001 01:30:52 -0000	1.2
+++ openacs-4/packages/cms/www/modules/permissions/permission-alter.tcl	19 Aug 2002 03:42:26 -0000	1.3
@@ -7,13 +7,7 @@
 
 set user_id [User::getID]
 
-template::query get_info info onerow "
-  select 
-    acs_object.name(:object_id) as object_name, 
-    acs_object.name(:grantee_id) as grantee_name,
-    acs_permission.permission_p(:object_id, :user_id, 'cm_perm') as user_cm_perm
-  from
-    dual"
+db_1row get_info "" -column_array info
 
 if { [string equal $info(user_cm_perm) t] } {