Index: openacs-4/packages/acs-subsite/tcl/relation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	28 Aug 2001 19:03:28 -0000	1.2
+++ openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	21 Nov 2001 05:20:31 -0000	1.3
@@ -27,6 +27,7 @@
 
 ad_proc -public relation_add {
     { -form_id "" }
+    { -extra_vars "" }
     { -variable_prefix "" }
     { -creation_user "" }
     { -creation_ip "" }
@@ -40,10 +41,13 @@
     constraint.
 
     @author Michael Bryzek (mbryzek@arsdigita.com)
+    @author Ben Adida (ben@openforce)
     @creation-date 1/5/2001
 
     @param form_id         The form id from templating form system
 
+    @param extra_vars      An ns_set of extra variables
+
     @param variable_prefix Only form elements that begin with the 
                            specified prefix will be processed.
 
@@ -75,11 +79,14 @@
 
     db_transaction {
 
+	ns_log Notice "DOTLRN: relation_add: var_list is $var_list"
+
 	set rel_id [package_instantiate_object \
 		-creation_user $creation_user \
 		-creation_ip $creation_ip \
 		-start_with "relationship" \
 		-form_id $form_id \
+		-extra_vars $extra_vars \
 		-variable_prefix $variable_prefix \
 		-var_list $var_list \
 		$rel_type]