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