item-type-delete.tcl

Delete an item type

Location:

/packages/calendar/www/item-type-delete.tcl

Author:

Ben Adida <ben@openforce.net>

Created:

Mar 16, 2002

CVS ID:

$Id: item-type-delete.tcl,v 1.5 2018/01/19 14:27:15 gustafn Exp $

Related Files

• packages/calendar/www/item-type-delete.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Delete an item type
    
    @author Ben Adida (ben@openforce.net)
    
    @creation-date Mar 16, 2002
    @cvs-id $Id: item-type-delete.tcl,v 1.5 2018/01/19 14:27:15 gustafn Exp $
} {
    calendar_id:naturalnum,notnull
    item_type_id:naturalnum,notnull
}

# Permission check
permission::require_permission -object_id $calendar_id -privilege calendar_admin

# Delete the type
calendar::item_type_delete -calendar_id $calendar_id -item_type_id $item_type_id

ad_returnredirect "calendar-item-types?calendar_id=$calendar_id"
ad_script_abort

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