Forum OpenACS Q&A: Response to usernabme instead of emails for login

Collapse
Posted by Hamilton Chua on
Yeah, screen name. I modified user-login.tcl

set email [string tolower $email]

if { ![db_0or1row user_login_user_id_from_email {
    select user_id, member_state, email_verified_p
    from cc_users
    where email = :email}] } {
     
    # HG Chua- we also need to check screen name
    if { ![db_0or1row user_login_user_id_from_username {select 
user_id, member_state, email_verified_p from cc_users where 
screen_name = :email}] } {

	    # The user is not in the database. Redirect to 
user-new.tcl so the user can register.
	    ad_set_client_property -persistent "f" register password 
$password
	    ad_returnredirect "user-new?[ad_export_vars { email 
return_url persistent_cookie_p }]"
	    return
    }
}



To check screen names in addition to email. So a user can essentially log in using his/her screen name and email address. what do you think guys ?