Index: openacs-4/packages/acs-subsite/www/register/awaiting-approval.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/Attic/awaiting-approval.tcl,v
diff -u -N -r1.1.1.1 -r1.1.1.1.2.1
--- openacs-4/packages/acs-subsite/www/register/awaiting-approval.tcl 13 Mar 2001 22:59:26 -0000 1.1.1.1
+++ openacs-4/packages/acs-subsite/www/register/awaiting-approval.tcl 31 Mar 2002 20:40:09 -0000 1.1.1.1.2.1
@@ -10,7 +10,7 @@
if {![db_0or1row register_member_state_information "select member_state, email, email_verified_p, rel_id
from cc_users where user_id = :user_id
-and (member_state is null or member_state = 'rejected')"]} {
+and (member_state is null or member_state = 'rejected' or member_state = 'needs approval')"]} {
ad_return_error "Couldn't find your record" "User id $user_id is not in the awaiting approval state. This is probably our programming bug."
return
}
Index: openacs-4/packages/acs-subsite/www/register/awaiting-approval.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/Attic/awaiting-approval.xql,v
diff -u -N -r1.1 -r1.1.2.1
--- openacs-4/packages/acs-subsite/www/register/awaiting-approval.xql 1 May 2001 21:20:18 -0000 1.1
+++ openacs-4/packages/acs-subsite/www/register/awaiting-approval.xql 31 Mar 2002 20:40:09 -0000 1.1.2.1
@@ -5,7 +5,7 @@
select member_state, email, email_verified_p, rel_id
from cc_users where user_id = :user_id
-and (member_state is null or member_state = 'rejected')
+and (member_state is null or member_state = 'rejected' or member_state = 'needs approval')
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 -N -r1.2 -r1.2.2.1
--- 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 31 Mar 2002 20:40:09 -0000 1.2.2.1
@@ -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'
Index: openacs-4/packages/acs-subsite/www/register/user-login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/Attic/user-login.tcl,v
diff -u -N -r1.1.1.1 -r1.1.1.1.2.1
--- openacs-4/packages/acs-subsite/www/register/user-login.tcl 13 Mar 2001 22:59:26 -0000 1.1.1.1
+++ openacs-4/packages/acs-subsite/www/register/user-login.tcl 31 Mar 2002 20:40:09 -0000 1.1.1.1.2.1
@@ -75,7 +75,7 @@
ad_returnredirect "awaiting-approval?user_id=$user_id"
return
}
- "" {
+ "needs approval" {
ad_returnredirect "awaiting-approval?user_id=$user_id"
return
}
Index: openacs-4/packages/acs-subsite/www/register/user-new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/user-new.adp,v
diff -u -N -r1.1.1.1.2.1 -r1.1.1.1.2.2
--- openacs-4/packages/acs-subsite/www/register/user-new.adp 9 Mar 2002 23:12:37 -0000 1.1.1.1.2.1
+++ openacs-4/packages/acs-subsite/www/register/user-new.adp 31 Mar 2002 20:40:09 -0000 1.1.1.1.2.2
@@ -36,7 +36,15 @@
offer to email it to you.
+
+ Security
+ We will generate and send to you a random password when your registration
+ is confirmed. Once you login, you can change your password.
+
+
+
+
About You
We know your email address already: "@email@". But we need your full