calendar::personal_p (public)

 calendar::personal_p -calendar_id calendar_id [ -user_id user_id ]

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

Switches:

-calendar_id

(required)

-user_id

(optional)

The user whose calendar you want to check

Returns:

true (1) if this is the user's personal calendar, false (0) otherwise.

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

Testcases:

cal_item_add_delete

Source code:

    if { $user_id eq "" } {
        set user_id [ad_conn user_id]
    }
    calendar::get -calendar_id $calendar_id -array calendar
    if { [string is true -strict $calendar(private_p)] && $calendar(owner_id) == $user_id } {
        return 1
    } else {
        return 0
    }

Generic XQL file:

packages/calendar/tcl/calendar-procs.xql

PostgreSQL XQL file:

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

Oracle XQL file:

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