Index: openacs-4/packages/acs-subsite/www/admin/relations/add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/add.tcl,v
diff -u -N -r1.10.10.2 -r1.10.10.3
--- openacs-4/packages/acs-subsite/www/admin/relations/add.tcl	9 Sep 2013 10:11:53 -0000	1.10.10.2
+++ openacs-4/packages/acs-subsite/www/admin/relations/add.tcl	9 Sep 2013 10:17:42 -0000	1.10.10.3
@@ -97,7 +97,7 @@
 
     # Sub rel-types exist... select one
     set exact_p "t"
-    set export_url_vars [ad_export_vars -exclude rel_type $export_var_list ]
+    set export_url_vars [export_vars -exclude rel_type $export_var_list ]
 
     relation_types_valid_to_group_multirow \
 	    -datasource_name object_types \
@@ -126,14 +126,14 @@
 set party_type_exact_p f
 set add_to_group_id $group_id
 set add_with_rel_type $rel_type
-set add_party_url "[ad_conn package_url]admin/parties/new?[ad_export_vars {add_to_group_id add_with_rel_type party_type party_type_exact_p return_url}]"
+set add_party_url "[ad_conn package_url]admin/parties/new?[export_vars {add_to_group_id add_with_rel_type party_type party_type_exact_p return_url}]"
 
 # Build a url used to select an existing party from the system (as opposed
 # to limiting the selection to parties on the current subsite).
-set add_out_of_scope_url "[ad_conn url]?[ad_export_vars -exclude allow_out_of_scope_p $export_var_list]&allow_out_of_scope_p=t"
+set add_out_of_scope_url "[ad_conn url]?[export_vars -exclude allow_out_of_scope_p $export_var_list]&allow_out_of_scope_p=t"
 
 # Build a url used to select an existing party from the current subsite
-set add_in_scope_url "[ad_conn url]?[ad_export_vars -exclude allow_out_of_scope_p $export_var_list]&allow_out_of_scope_p=f"
+set add_in_scope_url "[ad_conn url]?[export_vars -exclude allow_out_of_scope_p $export_var_list]&allow_out_of_scope_p=f"
 
 
 # We select out all parties that are to not already belong to the
@@ -159,7 +159,7 @@
 	ad_script_abort
     }
     if { $return_url eq "" } { 
-	set return_url one?[ad_export_vars rel_id]
+	set return_url one?[export_vars rel_id]
     }
     ad_returnredirect $return_url
     ad_script_abort