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 -N -r1.55 -r1.56
--- openacs-4/packages/contacts/www/contact-add.tcl	18 Jun 2007 03:20:45 -0000	1.55
+++ openacs-4/packages/contacts/www/contact-add.tcl	26 Jun 2007 02:53:13 -0000	1.56
@@ -291,7 +291,7 @@
 		set cat_ids [list]
 		
 		foreach group_id $group_ids {
-		    group::add_member \
+		    contact::group::add_member \
 			-group_id $group_id \
 			-user_id $person_party_id \
 			-rel_type "membership_rel"
@@ -316,11 +316,10 @@
 		
 		foreach group_id $group_ids {
 		    if {![empty_string_p $group_id]} {
-			
-			# relation-add does not work as there is no
-			# special procedure for organizations at the moment.
-			set rel_id [db_string insert_rels { select acs_rel__new (NULL::integer,'organization_rel',:group_id,:organization_party_id,NULL,:user_id,:peeraddr) as org_rel_id }]
-			db_dml insert_state { insert into membership_rels (rel_id,member_state) values (:rel_id,'approved') }
+			contact::group::add_member \
+			    -group_id $group_id \
+			    -user_id $organization_party_id \
+			    -rel_type "organization_rel"
 		    }
 		}