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 -r1.2 -r1.2.26.1 --- openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl 6 Sep 2002 21:49:59 -0000 1.2 +++ openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl 9 Sep 2013 09:11:32 -0000 1.2.26.1 @@ -23,9 +23,9 @@ } } -set context [list [list "" "Groups"] [list one?[ad_export_vars {group_id}] "One Group"] "Nuke group"] +set context [list [list "" "Groups"] [list one?[export_vars {group_id}] "One Group"] "Nuke group"] set group_name [db_string object_name {select acs_object.name(:group_id) from dual}] -set export_form_vars [ad_export_vars -form {group_id}] +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,