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 {