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

 callback::merge::MergePackageUser::impl::forums \
    -from_user_id from_user_id -to_user_id to_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:

-from_user_id (required)

-to_user_id (required)

See Also:

• callback::merge::MergePackageUser::contract

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

Testcases:

No testcase defined.

Source code:

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

    set msg "Merging forums"
    ns_log Notice $msg
    set result [list $msg]

    db_dml upd_poster {}
    db_dml upd_user_id {}

    lappend result "Merge of forums is done"

    return $result

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<fullquery name="callback::merge::MergePackageUser::impl::forums.upd_poster">
    <querytext>	
	update forums_messages
	set last_poster = :to_user_id
	where last_poster = :from_user_id
        </querytext>
</fullquery>

<fullquery name="callback::merge::MergePackageUser::impl::forums.upd_user_id">
    <querytext>	
        update forums_messages
	set user_id = :to_user_id
	where user_id = :from_user_id
        </querytext>
</fullquery>

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