Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.198 -r1.199
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	21 Dec 2006 15:57:53 -0000	1.198
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	21 Jun 2007 19:04:56 -0000	1.199
@@ -864,6 +864,9 @@
                 -list_args [list $community_id $user_id]
 
         }
+
+        callback dotlrn_community::membership_approve -user_id $user_id -community_id $community_id
+
     }
 
     ad_proc -public membership_reject {
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.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl	15 May 2007 20:14:25 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl	21 Jun 2007 19:04:56 -0000	1.4
@@ -141,6 +141,14 @@
     This callback will allow other packages to add members to a community
 } -
 
+ad_proc -callback dotlrn_community::membership_approve {
+    -user_id
+    -community_id
+} {
+    This callback allows other packages to perform actions when a user
+    is approved for dotlrn community membership
+} -
+
 ad_proc -public -callback contact::person_new -impl dotlrn_user {
     {-package_id:required}
     {-contact_id:required}
@@ -161,4 +169,4 @@
     
     
     
-}
\ No newline at end of file
+}