Index: openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl,v
diff -u -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl	15 Sep 2005 22:45:59 -0000	1.1.2.6
+++ openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl	16 Sep 2005 16:04:18 -0000	1.1.2.7
@@ -68,11 +68,7 @@
 	set fs_id [fs::get_root_folder -package_id [dotlrn_community::get_package_id_from_package_key -package_key "file-storage" -community_id $club_id]]
 	application_data_link::new -this_object_id $contact_id -target_object_id $fs_id
 
-	# Get list of employees and register them within the community
-	set employee_list [contact::util::get_employees -organization_id $contact_id]
-	foreach employee_id $employee_list {
-	    dotlrn_club::add_user -community_id $club_id -user_id $employee_id
-	}
+	callback dotlrn_community::add_members -community_id $club_id	
     }
 }
 
@@ -174,6 +170,12 @@
     description can contain HTML and will be shown with noquote
 } -
 
+ad_proc -callback dotlrn_community::add_members {
+    -community_id
+} {
+    This callback will allow other packages to add members to a community
+} -
+
 ad_proc -public -callback contact::person_new -impl dotlrn_user {
     {-package_id:required}
     {-contact_id:required}