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 ?