Index: openacs-4/packages/contacts/www/contact-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-add.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/contacts/www/contact-add.tcl	15 Jul 2005 21:01:52 -0000	1.25
+++ openacs-4/packages/contacts/www/contact-add.tcl	21 Jul 2005 18:13:07 -0000	1.26
@@ -9,6 +9,7 @@
     {object_type "person"}
     {group_ids ""}
     {rel_type ""}
+    {role_two ""}
     {object_id_two ""}
 } -validate {
     valid_type -requires {object_type} {
@@ -92,6 +93,10 @@
 
 # Append relationship attributes
 
+if {[exists_and_not_null role_two]} {
+    set rel_type [db_string select_rel_type "select rel_type from contact_rel_types where secondary_object_type = :object_type and secondary_role = :role_two" -default ""]
+}
+
 if {[exists_and_not_null rel_type]} {
     ad_form -extend -name party_ae -form [ams::ad_form::elements -package_key "contacts" -object_type $rel_type -list_name [ad_conn package_id]]
 }