calendar-edit.tcl

Add/Edit calendar

Location:

/packages/calendar/www/admin/calendar-edit.tcl

Created:

Dec 14, 2000

CVS ID:

$Id: calendar-edit.tcl,v 1.6 2017/08/07 23:48:05 gustafn Exp $

Related Files

• packages/calendar/www/admin/calendar-edit.tcl
• packages/calendar/www/admin/calendar-edit.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    
    Add/Edit calendar

    @creation-date Dec 14, 2000
    @cvs-id $Id: calendar-edit.tcl,v 1.6 2017/08/07 23:48:05 gustafn Exp $
} {
    {calendar_id:naturalnum,optional}
}

set page_title "Add/Edit Calendar"
set context [list $page_title]

ad_form -name calendar -form {
    {calendar_id:key}
    {calendar_name:text
        {label "[_ calendar.Calendar_Name]"}
        {html {size 50}}
    }
} -edit_request {
    set calendar_name [calendar::name $calendar_id]
} -new_data {
    calendar::new \
        -owner_id [ad_conn user_id] \
        -calendar_name $calendar_name 
} -edit_data {
    calendar::rename \
        -calendar_id $calendar_id \
        -calendar_name $calendar_name 
} -after_submit {
    ad_returnredirect .
    ad_script_abort
}



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