Index: openacs.org-dev/packages/cms/www/modules/permissions/permission-alter.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/cms/www/modules/permissions/permission-alter.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/cms/www/modules/permissions/permission-alter.tcl	9 Jul 2002 17:35:04 -0000	1.1.1.1
+++ openacs.org-dev/packages/cms/www/modules/permissions/permission-alter.tcl	8 Oct 2002 15:47:02 -0000	1.1.1.2
@@ -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] } {