Unit 3 / Deletion of Notes

# file xotcl-demo-note/www/admin/delete.tcl

::demo::Package initialize -ad_doc {
  Delete a note
} -parameter {
  {-item_id:integer}
}

#
# We need to verify the current user's privileges
#
permission::require_write_permission -object_id $item_id

#
# Proceed with deletion
#
::xo::db::CrItem delete -item_id $item_id