Index: openacs.org-dev/packages/cms/www/modules/users/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/cms/www/modules/users/delete.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/cms/www/modules/users/delete.tcl	9 Jul 2002 17:35:04 -0000	1.1.1.1
+++ openacs.org-dev/packages/cms/www/modules/users/delete.tcl	8 Oct 2002 15:47:03 -0000	1.1.1.2
@@ -6,12 +6,7 @@
 request set_param mount_point -datatype keyword -optional -value users
 
 # Determine if the group is empty
-template::query get_status is_empty onevalue "
-  select NVL((select 'f' from dual where exists (
-            select 1 from acs_rels 
-              where object_id_one = :id 
-              and rel_type in ('composition_rel', 'membership_rel'))),
-          't') as is_empty from dual"
+set is_empty [db_string get_status ""]
 
 # If nonempty, show error
 if { [string equal $is_empty "f"] } {