auth::require_login ad_page_contract { } { orderby:optional } set title_page "My To Do list" set user_id [ad_conn user_id] set package_id [ad_conn package_id] template::list::create -name todo_list \ -multirow todo_list_mr \ -elements { title { label "Task" link_url_col item_url link_html {title "Click para ver los detalles"} } description { label "Descripcion" } status_text { label "Estatus" } due_date { label "Due Date" } view { display_template "Ver" link_url_col item_url } delete { display_template "Eliminar" link_url_col eliminar_url } completed { display_template "Completar" link_url_col completar_url } cancel { display_template "Cancelar" link_url_col cancel_url } } -orderby { title {orderby todo.title} due_date {orderby todo.due_date} status_text {orderby todo.status} creation_date {orderby obj.creation_date} } -actions { "Nuevo Registro" "todo-ae" "Click para aƱadir un nuevo registro" } if {[exists_and_not_null orderby]} { set orderby_clause "ORDER BY [template::list::orderby_clause -name todo_list]" } else { set orderby_clause "ORDER BY due_date asc" } db_multirow -extend {item_url eliminar_url completar_url cancel_url status_text} todo_list_mr todo_list_mrs \ "select todo.item_id,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 obj.context_id = :package_id and obj.object_id = todo.item_id $orderby_clause" { set form_mode display set item_url "todo-ae?[export_vars -url {{item_id $item_id} form_mode}]" set status_text [todo::get_status_label $status] set return_url [util_get_current_url] set eliminar_url "todo-delete?[export_vars -url {item_id return_url}]" if {$status != "c"} { set new_status completado set completar_url "todo-update-item?[export_vars -url {item_id new_status return_url}]" } if {$status != "x"} { set new_status cancelado set cancel_url "todo-update-item?[export_vars -url {item_id new_status return_url}]" } }