Index: openacs-4/packages/acs-subsite/www/register/email-password-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/Attic/email-password-3.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/register/email-password-3.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/register/email-password-3.tcl	14 Apr 2002 04:34:36 -0000	1.2
@@ -16,24 +16,23 @@
     email:onevalue
 }
 
-if ![db_0or1row first_last_names "select first_names db_first_names, last_name db_last_name, password_question from cc_users where user_id = :user_id"] {
-
-    ad_return_error "Couldn't find user $user_id" "Couldn't find user $user_id.  This is probably a bug in our code."
+if {![db_0or1row select_person_name {}]} {
+    ad_return_error "Couldn't find user $user_id" "Couldn't find user $user_id. This is probably a bug in our code."
     return
 }
 
-if { [string compare $first_names $db_first_names] || [string compare $last_name $db_last_name] } {
+if {![string equal -nocase $first_names $db_first_names] && ![string equal -nocase $last_name $db_last_name]} {
     ad_return_error "Validation Check Failed" "The full name given didn't match. There must be something wrong."
     return
-} 
+}
 
-if ![empty_string_p $password_question] {
+if {![empty_string_p $password_question]} {
     ad_return_error "Customized question already there" "Customized question is already entered"
     return
 }
 
-db_dml update_question "update users set password_question = :question, password_answer = :answer where user_id = :user_id"
+db_dml update_question {}
 
 set system_name [ad_system_name]
 
-ad_return_template
\ No newline at end of file
+ad_return_template