acs_user::update (public)

 acs_user::update -user_id user_id [ -authority_id authority_id ] \
    [ -username username ] [ -screen_name screen_name ] \
    [ -password_question password_question ] \
    [ -password_answer password_answer ] \
    [ -email_verified_p email_verified_p ]

Defined in packages/acs-tcl/tcl/community-core-procs.tcl

Update information about a user. Feel free to expand this with more switches later as needed, as long as they're optional.

Switches:
-user_id
(required)
The ID of the user to edit
-authority_id
(optional)
-username
(optional)
-screen_name
(optional)
-password_question
(optional)
-password_answer
(optional)
-email_verified_p
(optional)
Options:
-authority_id
Authority
-username
Username
-screen_name
The new screen_name for the user
-password_question
The new password_question for the user
-password_answer
The new password_question for the user
-email_verified_p
Whether the email address has been verified
Author:
Lars Pind <lars@collaboraid.biz>

Partial Call Graph (max 5 caller/called nodes):
%3 test_auth_authentication_implementations auth_authentication_implementations (test acs-authentication) acs_user::update acs_user::update test_auth_authentication_implementations->acs_user::update test_demote_promote_a_user demote_promote_a_user (test acs-tcl) test_demote_promote_a_user->acs_user::update acs_user::flush_user_info acs_user::flush_user_info (public) acs_user::update->acs_user::flush_user_info db_dml db_dml (public) acs_user::update->db_dml auth::local::authentication::MergeUser auth::local::authentication::MergeUser (private) auth::local::authentication::MergeUser->acs_user::update auth::set_email_verified auth::set_email_verified (public) auth::set_email_verified->acs_user::update auth::update_local_account auth::update_local_account (public) auth::update_local_account->acs_user::update packages/acs-admin/www/users/member-state-change.tcl packages/acs-admin/ www/users/member-state-change.tcl packages/acs-admin/www/users/member-state-change.tcl->acs_user::update packages/oct-election/www/match-cvs-users-2.tcl packages/oct-election/ www/match-cvs-users-2.tcl packages/oct-election/www/match-cvs-users-2.tcl->acs_user::update

Testcases:
auth_authentication_implementations, demote_promote_a_user
Source code:
    set cols [list]
    foreach var { authority_id username screen_name password_question password_answer email_verified_p } {
        if { [info exists $var] } {
            lappend cols "$var = :$var"
        }
    }
    db_dml user_update {}
    acs_user::flush_user_info -user_id $user_id
Generic XQL file:
<fullquery name="acs_user::update.user_update">
    <querytext>

	update users
        set    [join $cols ", "]
        where  user_id = :user_id

      </querytext>
</fullquery>
packages/acs-tcl/tcl/community-core-procs.xql

PostgreSQL XQL file:
packages/acs-tcl/tcl/community-core-procs-postgresql.xql

Oracle XQL file:
packages/acs-tcl/tcl/community-core-procs-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: