callback::merge::MergeShowUserInfo::impl::forums (private)

 callback::merge::MergeShowUserInfo::impl::forums -user_id user_id

Defined in packages/forums/tcl/forums-callback-procs.tcl

Merge the *forums* of two users. The from_user_id is the user_id of the user that will be deleted and all the *forums* of this user will be mapped to the to_user_id.

Switches:

-user_id (required)

See Also:

• callback::merge::MergeShowUserInfo::contract

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    ::callback::merge::MergeShowUserInfo::contract__arg_parser {*}$args

    set msg "Forums items of $user_id"
    ns_log Notice $msg
    set result [list $msg]

    set last_poster [db_list_of_lists sel_poster {} ]
    set msg "Last Poster of $last_poster"
    lappend result $msg

    set poster [db_list_of_lists sel_user_id {} ]
    set msg "Poster of $poster"
    lappend result $msg

    return $result

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<fullquery name="callback::merge::MergeShowUserInfo::impl::forums.sel_user_id">
    <querytext>	
        select message_id, subject
	from forums_messages
	where user_id = :user_id
        </querytext>
</fullquery>

<fullquery name="callback::merge::MergeShowUserInfo::impl::forums.sel_poster">
    <querytext>	
        select message_id, subject
	from forums_messages
	where last_poster = :user_id
        </querytext>
</fullquery>

packages/forums/tcl/forums-callback-procs.xql