Index: openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl	27 Jun 2015 16:03:12 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl	7 Aug 2017 23:47:58 -0000	1.6
@@ -24,17 +24,15 @@
 }
 
 set context [list [list "" "Groups"] [list [export_vars -base one {group_id}] "One Group"] "Nuke group"]
-set group_name [db_string object_name {select acs_object.name(:group_id) from dual}]
+set group_name [db_string object_name {}]
 set export_form_vars [export_vars -form {group_id}]
 
-db_1row select_counts {
-    select (select count(*) from group_element_map where group_id = :group_id) as elements,
-           (select count(*) from rel_segments where group_id = :group_id) as segments,
-           (select count(*) 
-              from rel_constraints cons, rel_segments segs
-             where segs.segment_id in (cons.rel_segment,cons.required_rel_segment)
-               and segs.group_id = :group_id) as constraints
-      from dual
-} -column_array number
+db_1row select_counts {} -column_array number
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: