ad_get_user_info (public, deprecated)

 ad_get_user_info

Defined in packages/acs-tcl/tcl/deprecated-procs.tcl

Deprecated. Invoking this procedure generates a warning.

Sets first_names, last_name, email in the environment of its caller.

Returns:

ad_return_error if user_id can't be found.

Authors:

Unknown

Roberto Mello

See Also:

• acs_user::get

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc ad_get_user_info
    uplevel {
        set user_id [ad_conn user_id]
        if { [catch {
            db_1row user_name_select {
                select first_names, last_name, email
                from persons, parties
                where person_id = :user_id
                and person_id = party_id
            }
        } errmsg] } {
            ad_return_error "Couldn't find user info" "Couldn't find user info."
            return
        }
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-tcl/tcl/deprecated-procs.xql