Index: openacs-4/packages/acs-admin/acs-admin.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/acs-admin.info,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/acs-admin/acs-admin.info	14 May 2007 20:30:16 -0000	1.34
+++ openacs-4/packages/acs-admin/acs-admin.info	28 May 2007 15:51:27 -0000	1.35
@@ -7,7 +7,7 @@
     <initial-install-p>t</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="5.3.1" url="http://openacs.org/repository/download/apm/acs-admin-5.3.1.apm">
+    <version name="5.4.0d1" url="http://openacs.org/repository/download/apm/acs-admin-5.4.0d1.apm">
         <owner url="mailto:dhogaza@pacifier.com">Don Baccus</owner>
         <summary>An interface for Site-wide administration of an OpenACS Installation.</summary>
         <maturity>3</maturity>
@@ -19,7 +19,7 @@
           (including package installation, cache, authentication, and user accounts) for an OpenACS system.
         </description>
 
-        <provides url="acs-admin" version="5.3.1"/>
+        <provides url="acs-admin" version="5.4.0d1"/>
         <requires url="acs-kernel" version="5.3.1"/>
 
         <callbacks>
Index: openacs-4/packages/acs-admin/tcl/acs-admin-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/acs-admin-callback-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/tcl/acs-admin-callback-procs.tcl	28 May 2007 15:51:27 -0000	1.1
@@ -0,0 +1,23 @@
+# packages/acs-admin/tcl/acs-admin-callback-procs.tcl
+
+ad_library {
+    
+    Callback procs for acs-admin
+    @author Malte Sussdorff (sussdorff@sussdorff.de)
+    @creation-date 2007-06-15
+    @arch-tag: 4267c818-0019-4222-8a50-64edbe7563d1
+}
+
+namespace eval acs_admin {}
+
+ad_proc -public -callback acs_admin::member_state_change {
+    -user_id
+    -member_state
+} {
+    Callback which is executed after a successful change of member state. Allows other software to do additional tasks
+    upon the user.
+    
+    @param user_id User ID of the user upon whom the state change was done
+    @param member_state New state of the user
+} -
+
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 -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"