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

 callback::merge::MergePackageUser::impl::news \
    -from_user_id from_user_id -to_user_id to_user_id

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

Merge the news of two users.

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 news"
    ns_log Notice $msg
    set result [list $msg]

    db_dml update_from_news_approval {}

    lappend result "Merge of news is done"

    return $result

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<fullquery name="callback::merge::MergePackageUser::impl::news.update_from_news_approval">
    <querytext>	
      update cr_news
      set approval_user = :to_user_id
      where approval_user = :from_user_id
    </querytext>
</fullquery>

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