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.10 -r1.11
--- openacs-4/packages/acs-admin/www/users/member-state-change.tcl	11 Dec 2003 21:39:45 -0000	1.10
+++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl	1 Mar 2005 00:01:21 -0000	1.11
@@ -92,7 +92,7 @@
     <pre>$errmsg</pre>"
 }
 
-set admin_user_id [ad_verify_and_get_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"
 set message $email_message