modified login_successful.R