Index: openacs-4/packages/acs-subsite/www/admin/rel-types/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/rel-types/delete.tcl	6 Sep 2002 21:50:03 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/delete.tcl	27 Oct 2014 16:39:54 -0000	1.3
@@ -18,7 +18,7 @@
     counts:onerow
 }
 
-set context [list [list "" "Relationship types"] [list one?[ad_export_vars rel_type] "One type"] "Delete type"]
+set context [list [list "" "Relationship types"] [list one?[export_vars rel_type] "One type"] "Delete type"]
 
 set rel_type_pretty_name [db_string select_pretty_name {
     select t.pretty_name
@@ -46,7 +46,7 @@
           from acs_object_types t
          where t.supertype = :rel_type
     } {
-	template::multirow append subtypes $rel_type $pretty_name [ad_export_vars {rel_type return_url}]
+	template::multirow append subtypes $rel_type $pretty_name [export_vars {rel_type return_url}]
     }
     ad_return_template "delete-subtypes-exist"
     return
@@ -59,6 +59,6 @@
       from dual
 } -column_array counts
 
-set export_vars [ad_export_vars -form {rel_type return_url}]
+set export_vars [export_vars -form {rel_type return_url}]
 
 ad_return_template