auth::require_login ad_page_contract { En esta página podrá agregar nuevos items o mostrar los existentes!!! } { item_id:optional {form_mode "edit" } } if { [exists_and_not_null item_id] && [acs_object::object_p -id $item_id]} { if {[string equal $form_mode "edit"]} { permission::require_permission -object_id $item_id -privilege write } else { permission::require_permission -object_id $item_id -privilege read } } set page_title "Agregar/Editar To-Do Item" set user_id [ad_conn user_id] set package_id [ad_conn package_id] set ip_address [ad_conn peeraddr] ad_form -name todo_item_form -export {user_id} -mode $form_mode -form { item_id:key {title:text {label "Task Title"}} {description:text(textarea) {label "Descripcion"}} {due_date:date(date) {label "Due Date:"} {format {MONTH DD YYYY}}} {status:text(select) {label "Status"} {options { {"Pending" "p"} {"Complete" "c"} {"Cancelded" "x"} } } } } -new_data { set context_id [ad_conn package_id] set new_object_id [db_exec_plsql do_insert { select todo_item__new (:item_id,:title,:description,:status,:user_id,to_date(:due_date , 'YYYY MM DD'),:ip_address,:context_id); }] permission::toggle_inherit -object_id $new_object_id permission::grant -party_id $user_id \ -object_id $new_object_id \ -privilege "general_comments_create" permission::grant -party_id $user_id \ -object_id $new_object_id \ -privilege "read" } -select_query { select todo.title, todo.description, to_char(todo.due_date , 'YYYY MM DD') as due_date,todo.status from todo_item todo,acs_objects obj where todo.item_id = :item_id and obj.object_id = todo.item_id and obj.context_id = :package_id } -edit_data { db_dml tod_item_update "update todo_item set title = :title, description = :description, status = :status, due_date = to_date (:due_date,'YYYY MM DD') where item_id = :item_id " db_exec_plsql to_to_list_obj_item_object_update { select acs_object__update_last_modified (:item_id,:user_id,:ip_address); } } -after_submit { ad_returnredirect index ad_script_abort } if { [string equal $form_mode "display"] } { set comment_add_url "[general_comments_package_url]comment-add?[export_vars {{ object_id $item_id } { return_url [util_get_current_url]}}]" set comments_html [general_comments_get_comments -print_content_p 1 $item_id [util_get_current_url]] }