Index: openacs-4/packages/acs-subsite/www/admin/rel-types/roles/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/roles/delete.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/rel-types/roles/delete.tcl	6 Sep 2002 21:50:03 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/roles/delete.tcl	27 Oct 2014 16:39:54 -0000	1.3
@@ -17,9 +17,9 @@
     export_vars:onevalue
 }
 
-set context [list [list "../" "Relationship types"] [list "" "Roles"] [list one?[ad_export_vars role] "One role"] "Delete role"]
+set context [list [list "../" "Relationship types"] [list "" "Roles"] [list one?[export_vars role] "One role"] "Delete role"]
 
-set export_vars [ad_export_vars -form {role return_url}]
+set export_vars [export_vars -form {role return_url}]
 
 set pretty_name [db_string select_role_pretty_name {
     select r.pretty_name from acs_rel_roles r where r.role = :role