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

 callback::merge::MergeShowUserInfo::impl::news -user_id user_id

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

Show the news items

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 "News items of $user_id"
    ns_log Notice $msg
    set result [list $msg]

    set news [db_list_of_lists getaprovednews {}]

    lappend result $news

    return $result

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<fullquery name="callback::merge::MergeShowUserInfo::impl::news.getaprovednews">
    <querytext>	
      select news_id, lead
      from cr_news 
      where approval_user = :user_id
    </querytext>
</fullquery>

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