Index: openacs-4/packages/acs-subsite/www/register/email-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/email-confirm.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/register/email-confirm.tcl	2 Sep 2001 16:38:48 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/register/email-confirm.tcl	12 May 2002 20:57:02 -0000	1.3
@@ -44,7 +44,7 @@
                         set email_verified_p = 't'
                         where user_id = :user_id" 
 
-} elseif { $member_state == "" && $email_verified_p == "f" } {
+} elseif { $member_state == "needs approval" && $email_verified_p == "f" } {
     #state is need_email_verification_and_admin_approv
     db_dml register_email_confirm_update3 "update users
                         set email_verified_p = 't'