Index: openacs-4/packages/acs-subsite/www/admin/group-types/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/delete.tcl,v
diff -u -N -r1.3.26.2 -r1.3.26.3
--- openacs-4/packages/acs-subsite/www/admin/group-types/delete.tcl	9 Sep 2013 10:11:50 -0000	1.3.26.2
+++ openacs-4/packages/acs-subsite/www/admin/group-types/delete.tcl	9 Sep 2013 10:17:38 -0000	1.3.26.3
@@ -61,7 +61,7 @@
           from acs_object_types t
          where t.supertype = :group_type
     } {
-	template::multirow append subtypes $pretty_name [ad_export_vars {group_type return_url}]
+	template::multirow append subtypes $pretty_name [export_vars {group_type return_url}]
     }
     ad_return_template "delete-subtypes-exist"
     return
@@ -90,13 +90,13 @@
                 or rel.object_type_two = :group_type)
 	   and rel.rel_type = t.object_type
     } {
-	template::multirow append rel_types $pretty_name [ad_export_vars {rel_type return_url}]
+	template::multirow append rel_types $pretty_name [export_vars {rel_type return_url}]
     }
     ad_return_template "delete-rel-types-exist"
     return
 }
 
-set export_form_vars [ad_export_vars -form {group_type return_url}]
+set export_form_vars [export_vars -form {group_type return_url}]
 
 set groups_of_this_type [util_commify_number [db_string groups_of_this_type {
     select count(o.object_id)