cal-options.tcl

List all the calendars for which the user has the read privilege.

Location:
/packages/calendar/www/cal-options.tcl
Authors:

Dirk Gomez <openacs@dirkgomez.de>

Gary Jin <gjin@arsdigita.com>

Ben Adida <ben@openforce.net>

Created:

Dec 14, 2000, May 29th, 2002

CVS ID:

$Id: cal-options.tcl,v 1.13 2018/06/30 21:08:42 hectorr Exp $

File Contents

ad_page_contract {

    List all the calendars for which the user has the read privilege.

    @author Dirk Gomez (openacs@dirkgomez.de)
    @author Gary Jin (gjin@arsdigita.com)
    @author Ben Adida (ben@openforce.net)
    @creation-date Dec 14, 2000, May 29th, 2002
    @cvs-id $Id: cal-options.tcl,v 1.13 2018/06/30 21:08:42 hectorr Exp $

} {
}

set user_id [ad_conn user_id]

# If we're included from another package url_stub will have been set up
# to give a valid url prefix that points to the proper calendar.

if { ![info exists base_url] } {
    set base_url ""
}

set calendar_list [calendar::calendar_list]

multirow create calendars calendar_name calendar_id calendar_admin_p
foreach calendar $calendar_list {
    multirow append calendars [lindex $calendar 0] [lindex $calendar 1] [lindex $calendar 2]
}

ad_return_template

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End:

cal-options.tcl

Related Files

File Contents