Index: openacs-4/packages/acs-admin/www/users/member-state-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/member-state-change.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-admin/www/users/member-state-change.tcl	10 Jan 2007 21:22:00 -0000	1.12
+++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl	28 May 2007 15:51:27 -0000	1.13
@@ -92,6 +92,8 @@
     <pre>$errmsg</pre>"
 }
 
+callback acs_admin::member_state_change -member_state $member_state -user_id $user_id
+
 set admin_user_id [ad_conn user_id]
 set email_from [db_string admin_email "select email from parties where party_id = :admin_user_id"]
 set subject "$action"