Index: openacs-4/packages/contacts/www/group-party-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/group-party-add.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/www/group-party-add.tcl	30 Aug 2005 09:37:33 -0000	1.4
+++ openacs-4/packages/contacts/www/group-party-add.tcl	20 Oct 2005 13:58:21 -0000	1.5
@@ -31,7 +31,11 @@
     set ip_addr [ad_conn peeraddr]
     set rel_id [db_exec_plsql add_organization_rel {}]
     db_dml insert_state {}
-    # relation_add -member_state "approved" $rel_type $group_id $party_id
+    
+    # Execute the callback for the organization depending on the group they are added to.
+    # We use this callback to add the organization to .LRN if it is a Customer
+    callback contact::organization_new_group -organization_id $party_id -group_id $group_id
+	
 } else {
     group::add_member \
 	-group_id $group_id \