Index: openacs-4/packages/contacts/www/group-parties-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/group-parties-add.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/www/group-parties-add.tcl	6 Jul 2005 23:40:25 -0000	1.5
+++ openacs-4/packages/contacts/www/group-parties-add.tcl	20 Oct 2005 13:58:21 -0000	1.6
@@ -71,6 +71,9 @@
                             set rel_type "membership_rel"
                         }
                         organization {
+			    # 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
                             set rel_type "organization_rel"
                         }
                     }
@@ -92,6 +95,7 @@
 			db_dml insert_state { insert into membership_rels (rel_id,member_state) values (:rel_id,'approved') }
 		    }
 
+		    
                 }
             }
 	}