Index: openacs-4/packages/acs-subsite/www/admin/groups/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/delete-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/groups/delete-2.tcl	10 Jan 2007 21:22:07 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/groups/delete-2.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
     { operation "" }
     { return_url "" }
 } -validate {
@@ -25,11 +25,11 @@
 	set group_type [group::delete $group_id]
     }
     if { $return_url eq "" && $group_type ne "" } {
-	set return_url "../group-types/one?[ad_export_vars group_type]"
+	set return_url "../group-types/one?[export_vars group_type]"
     }
 } else {
     if { $return_url eq "" } {
-	set return_url "one?[ad_export_vars group_id]"
+	set return_url "one?[export_vars group_id]"
     }
 }