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

 callback::merge::MergeShowUserInfo::impl::calendar -user_id user_id

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

Shows the calendar tables user info

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 "Calendars of user_id: $user_id"
    set return_msg [list $msg]

    set cals [db_list get_calendars {*SQL*} ]
    if { $cals eq "" } {
        lappend return_msg "none"
    } else {
        lappend return_msg $cals
    }

    return $return_msg

Generic XQL file:

<fullquery name="callback::merge::MergeShowUserInfo::impl::calendar.get_calendars">
    <querytext>	
	select calendar_name
	from calendars
	where owner_id = :user_id
    </querytext>
</fullquery>

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

PostgreSQL XQL file:

packages/calendar/tcl/calendar-callback-procs-postgresql.xql

Oracle XQL file:

packages/calendar/tcl/calendar-callback-procs-oracle.xql