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
[ 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: