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.3
--- 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	27 Oct 2014 16:39:50 -0000	1.3
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
 } -properties {
     context:onevalue
     group_name:onevalue
@@ -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,