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.46 -r1.47
--- openacs-4/packages/contacts/www/contact-add.tcl	26 Apr 2006 06:20:18 -0000	1.46
+++ openacs-4/packages/contacts/www/contact-add.tcl	28 Apr 2006 10:13:28 -0000	1.47
@@ -234,7 +234,6 @@
 		    -user_id $party_id \
 		    -rel_type "membership_rel"
 		
-		callback contact::person_new_group -person_id $party_id -group_id $group_id
 		set element_name "category_ids$group_id"
 		if {$group_id < 0} {
 		    set element_name "category_ids[expr - $group_id]"
@@ -262,7 +261,6 @@
 		    # special procedure for organizations at the moment.
 		    set rel_id [db_string insert_rels { select acs_rel__new (NULL::integer,'organization_rel',:group_id,: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') }
-		    callback contact::organization_new_group -organization_id $party_id -group_id $group_id
 		}
 	    }
 	    
@@ -279,6 +277,8 @@
 		-list_name "${package_id}__${group_id}" \
 		-form_name "party_ae" \
 		-object_id $revision_id
+
+	    callback contact::${object_type}_new_group -${object_type}_id $party_id -group_id $group_id
 	    # execute group specific callbacks
 	    group::get -group_id $group_id -array group_array
 	    set group_name ${group_array(group_name)}