Source of list9/delete.tcl

# packages/notes/www/delete.tcl

ad_page_contract {

  @author rhs@mit.edu
  @creation-date 2000-10-23
  @cvs-id $Id: delete.tcl,v 1.4 2018/01/19 14:16:01 gustafn Exp $
} {
  template_demo_note_id:naturalnum,notnull,multiple
} -validate {
    csrf { csrf::validate }
}

foreach template_demo_note_id $template_demo_note_id {
    permission::require_permission -object_id $template_demo_note_id -privilege delete

    package_exec_plsql \
	-var_list [list [list template_demo_note_id $template_demo_note_id]] \
	template_demo_note \
	del
}

# We've successfully processed the submission.
# Clear the pagination cache.

cache flush notes*

ad_returnredirect "./"
ad_script_abort

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