file-delete.tcl

Delete a richtext attachment.

Location:

/packages/attachments/www/richtext/file-delete.tcl

Related Files

• packages/attachments/www/richtext/file-delete.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Delete a richtext attachment.
} {
    attachment_id:object_id
    return_url:localurl
}

::permission::require_permission \
    -object_id $attachment_id \
    -privilege delete

content::item::delete -item_id $attachment_id

ad_returnredirect $return_url
ad_script_abort