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.5 -r1.1.2.6
--- openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl	7 Aug 2005 20:10:22 -0000	1.1.2.5
+++ openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl	15 Sep 2005 22:45:59 -0000	1.1.2.6
@@ -173,3 +173,25 @@
     display in the user interface so an editor of an email template will know what variables are available
     description can contain HTML and will be shown with noquote
 } -
+
+ad_proc -public -callback contact::person_new -impl dotlrn_user {
+    {-package_id:required}
+    {-contact_id:required}
+    {-party_id:required}
+} {
+    Callback to add an organization's employee to dotLRN.
+    It also registers all employees of the organization within the club
+} {
+    
+    
+    db_1row get_community_id { }
+    
+    
+    dotlrn_privacy::set_user_guest_p -user_id $party_id -value "t"
+    dotlrn::user_add -can_browse  -user_id $party_id
+    dotlrn_community::add_user_to_community -community_id $community_id -user_id $party_id
+    
+    
+    
+    
+}
\ No newline at end of file
Index: openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.xql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.xql	19 Jul 2005 22:20:26 -0000	1.1.2.1
+++ openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.xql	15 Sep 2005 22:45:59 -0000	1.1.2.2
@@ -21,4 +21,16 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="callback::contact::person_new::impl::dotlrn_user.get_community_id">
+        <querytext>	
+
+	select c.community_id 
+	  from acs_rels r, dotlrn_communities c 
+         where r.object_id_one = :contact_id 
+         and r.object_id_two = c.community_id
+
+        </querytext>
+    </fullquery>
+
+
 </queryset>