calendar::new (public)

 calendar::new -owner_id owner_id [ -private_p private_p ] \
    -calendar_name calendar_name [ -package_id package_id ]

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

Create a new calendar

Switches:

-owner_id

(required)

-private_p

(defaults to "f") (optional)

-calendar_name

(required)

-package_id

(optional)

Returns:

the new calendar_id

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

Testcases:

calendar_basic_api

Source code:

    if { $package_id eq "" } {
        set package_id [ad_conn package_id]
    }
    set extra_vars [ns_set create s  owner_id $owner_id  private_p $private_p  calendar_name $calendar_name  package_id $package_id  context_id $package_id]

    set calendar_id [package_instantiate_object -extra_vars $extra_vars calendar]

    return $calendar_id

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