@title@@content;noquote@
++#tasks.Add_Task# +#tasks.Assign_Process# +
+ +}
+ display_template {
+ ![[_ tasks.Not_Done]](/resources/acs-subsite/checkbox.gif){kind=small}
+ @tasks.description_html;noquote@ +
+@question@
++ #tasks.Yes# - #tasks.No_Cancel# +
+ Index: openacs-4/packages/tasks/www/delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/delete.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/tasks/www/delete.tcl 27 Jul 2005 13:45:00 -0000 1.1 @@ -0,0 +1,70 @@ +ad_page_contract { + + @author Matthew Geddert openacs@geddert.com + @creation-date 2004-07-28 + @cvs-id $Id: delete.tcl,v 1.1 2005/07/27 13:45:00 maltes Exp $ + +} { + {task_id:integer,multiple} + {confirm_p:boolean 1} + {return_url:notnull} +} + + +set num_entries [llength $task_id] +set user_id [ad_conn user_id] + +if { [string is false $confirm_p] } { + + if { $num_entries == 0 } { + ad_returnredirect ./ + return + } + set title "Delete [ad_decode $num_entries 1 "a Task" "Tasks"]" + set context [list $title] + set question "Are you sure you want to delete [ad_decode $num_entries 1 "this task" "these $num_entries tasks"]?" + set yes_url "delete?[export_vars { task_id:multiple { confirm_p 1 } return_url}]" + set no_url "${return_url}" + return +} + + +set task_titles [list] +foreach task_id $task_id { + lappend task_titles [db_string get_task_title { + select cr.title as task + from pm_tasks_revisions ptr, + cr_revisions cr, + cr_items ci + where ci.item_id = :task_id + and ci.latest_revision = ptr.task_revision_id + and ci.live_revision = ptr.task_revision_id + and ptr.task_revision_id = cr.revision_id + + }] + db_dml mark_delete "update pm_tasks set deleted_p = 't' where task_id = :task_id" +} + +if { $num_entries > 1 } { + set task_list "" + set num 1 + foreach task_title $task_titles { + if { $num == $num_entries } { + append task_list " and " + } elseif { $num != 1 } { + append task_list ", " + } + append task_list "\"${task_title}\"" + incr num + } + util_user_message -html -message "The tasks ${task_list} were deleted" +} else { + util_user_message -html -message "The task \"[lindex $task_titles 0]\" was deleted" +} + +ad_returnredirect $return_url +ad_script_abort + + + + Index: openacs-4/packages/tasks/www/index-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/index-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/tasks/www/index-postgresql.xql 27 Jul 2005 13:44:59 -0000 1.1 @@ -0,0 +1,56 @@ + +@question@
++ #tasks.Yes# - #tasks.No_Cancel# +
+ Index: openacs-4/packages/tasks/www/mark-completed.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/mark-completed.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/tasks/www/mark-completed.tcl 27 Jul 2005 13:45:00 -0000 1.1 @@ -0,0 +1,75 @@ +ad_page_contract { + + @author Matthew Geddert openacs@geddert.com + @creation-date 2004-07-28 + @cvs-id $Id: mark-completed.tcl,v 1.1 2005/07/27 13:45:00 maltes Exp $ + +} { + {task_id:integer,multiple} + {confirm_p:boolean 1} + {status_id:integer ""} + {orderby ""} + {return_url:notnull} +} +# {party_id:integer,notnull} + +set num_entries [llength $task_id] + +if { [string is false $confirm_p] } { + + if { $num_entries == 0 } { + ad_returnredirect ./ + return + } + set title "Mark [ad_decode $num_entries 1 "Task" "Tasks"] as Done" + set context [list $title] + set question "Are you sure you want to mark [ad_decode $num_entries 1 "this task" "these $num_entries tasks"] as done?" + set yes_url "mark-done?[export_vars { task_id:multiple { confirm_p 1 } status_id orderby party_id}]" + set no_url "./?[export_vars { status_id orderby party_id}]" + return +} + +set user_id [ad_conn user_id] + +set task_titles [list] +foreach task_id $task_id { + set task_title [db_string get_task_title { + select cr.title as task + from pm_tasks_revisions ptr, + cr_revisions cr, + cr_items ci + where ci.item_id = :task_id + and ci.latest_revision = ptr.task_revision_id + and ci.live_revision = ptr.task_revision_id + and ptr.task_revision_id = cr.revision_id + + }] + lappend task_titles "${task_title}" + pm::task::update_percent -task_item_id $task_id -percent_complete "100" +} + + +if { $num_entries > 1 } { + set task_list "" + set num 1 + foreach task_title $task_titles { + if { $num == $num_entries } { + append task_list " and " + } elseif { $num != 1 } { + append task_list ", " + } + append task_list "\"${task_title}\"" + incr num + } + util_user_message -html -message "The tasks ${task_list} were marked done" +} else { + util_user_message -html -message "The task \"[lindex $task_titles 0]\" was marked done" +} +#util_user_message -message "[ad_decode $num_entries 1 "One task" "$num_entries tasks"] marked done." + +ad_returnredirect $return_url +ad_script_abort + + + + Index: openacs-4/packages/tasks/www/old-process-assign.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/Attic/old-process-assign.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/tasks/www/old-process-assign.adp 27 Jul 2005 13:44:59 -0000 1.1 @@ -0,0 +1,9 @@ ++ #tasks.lt_Are_you_sure_you_want# + +
+ @description@ ++ +
+ #tasks.Delete# + + #tasks.Cancel_do_not_delete# +
+ Index: openacs-4/packages/tasks/www/process-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/process-delete.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/tasks/www/process-delete.tcl 27 Jul 2005 13:45:00 -0000 1.1 @@ -0,0 +1,44 @@ +# + +ad_page_contract { + + Delete a process + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-06-25 + @arch-tag: e4153029-2cda-462d-b429-8f2b24999580 + @cvs-id $Id: process-delete.tcl,v 1.1 2005/07/27 13:45:00 maltes Exp $ +} { + process_id:integer + {confirm_p:boolean 0} + {return_url "processes"} +} -properties { +} -validate { +} -errors { +} + +set package_id [ad_conn package_id] + + +if {[string is false $confirm_p]} { + + db_1row get_name "select one_line, description from pm_process where process_id = :process_id" + + set title "Delete process: $one_line" + set context [list "Delete: $one_line"] + + set yes_url "process-delete?[export_vars {process_id {confirm_p 1} return_url}]" + set no_url $return_url + + return +} + + +permission::require_permission -object_id $package_id -privilege delete +db_transaction { + db_dml delete_extra_stuff { + delete from tasks_pm_process_task where process_task_id in ( select process_task_id from pm_process_task where process_id = :process_id ) + } + pm::process::delete -process_id $process_id +} +ad_returnredirect -message "Process deleted" $return_url Index: openacs-4/packages/tasks/www/process-instances.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/Attic/process-instances.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/tasks/www/process-instances.adp 27 Jul 2005 13:45:00 -0000 1.1 @@ -0,0 +1,6 @@ +
+
+ }
+ }
+ instance_id {
+ label "ID"
+ }
+ name {
+ label "Name"
+ }
+ project_item_id {
+ label "Project"
+ display_template {
+ @instances.project_name@
+ }
+ }
+ active_tasks {
+ label "Active tasks"
+ }
+ } \
+ -main_class {
+ narrow
+ } \
+ -html {
+ width 100%
+ }
+
+
+db_multirow -extend { delete_url creation_date } instances instances_query {
+} {
+ set delete_url [export_vars -base "process-delete" {process_id}]
+}
+
Index: openacs-4/packages/tasks/www/process-instances.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/Attic/process-instances.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/tasks/www/process-instances.xql 27 Jul 2005 13:45:00 -0000 1.1
@@ -0,0 +1,38 @@
+
+
+
+
+
+
+
+@question@
++ #tasks.Yes# - #tasks.No_Cancel# +
+ Index: openacs-4/packages/tasks/www/process-task-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/process-task-delete.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/tasks/www/process-task-delete.tcl 27 Jul 2005 13:45:00 -0000 1.1 @@ -0,0 +1,80 @@ +ad_page_contract { + + @author Matthew Geddert openacs@geddert.com + @creation-date 2004-07-28 + @cvs-id $Id: process-task-delete.tcl,v 1.1 2005/07/27 13:45:00 maltes Exp $ + +} { + {process_task_id:integer,multiple} + {confirm_p:boolean 0} + {status_id:integer ""} + {process_id:integer,notnull} + {orderby ""} +} + + +set num_entries [llength $process_task_id] + + +if { [string is false $confirm_p] } { + + if { $num_entries == 0 } { + ad_returnredirect ./ + return + } + set title "Delete [ad_decode $num_entries 1 "a Process Task" "Process Tasks"]" + set context [list $title] + set question "Are you sure you want to delete [ad_decode $num_entries 1 "this process task" "these $num_entries process tasks"]?" + set yes_url [export_vars -base process-task-delete -url { process_task_id:multiple { confirm_p 1 } status_id orderby process_id }] + set no_url [export_vars -base process -url { process_id status_id orderby }] + return +} + +set user_id [ad_conn user_id] + +set task_titles [list] + +db_transaction { + foreach process_task_id $process_task_id { + lappend task_titles [db_string get_task_title { + select one_line + from pm_process_task + where process_task_id = :process_task_id + and process_id = :process_id + }] + db_dml mark_delete { + delete + from tasks_pm_process_task + where process_task_id = :process_task_id + } + db_dml mark_delete { + delete + from pm_process_task + where process_task_id = :process_task_id + and process_id = :process_id + } + } +} +if { $num_entries > 1 } { + set task_list "" + set num 1 + foreach task_title $task_titles { + if { $num == $num_entries } { + append task_list " and " + } elseif { $num != 1 } { + append task_list ", " + } + append task_list "\"${task_title}\"" + incr num + } + util_user_message -html -message "The process tasks ${task_list} were deleted" +} else { + util_user_message -html -message "The process task \"[lindex $task_titles 0]\" was deleted" +} + +ad_returnredirect [export_vars -base process -url { process_id status_id orderby }] +ad_script_abort + + + + Index: openacs-4/packages/tasks/www/process-task.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/process-task.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/tasks/www/process-task.adp 27 Jul 2005 13:44:59 -0000 1.1 @@ -0,0 +1,7 @@ +![](\"/shared/images/go.gif\")
"
+
+
+set elements \
+ [list \
+ priority {
+ label "Priority"
+ } \
+ one_line {
+ label "Subject"
+ display_template {@tasks.task@
+ }
+ } \
+ deadline {
+ label "Due"
+ display_template {
+ 
+ }
+ }
+ delete {
+ display_template {
+ 
+ }
+ }
+ } -actions $actions \
+ -filters {
+ orderby_process {}
+ } \
+ -orderby {
+ one_line {orderby one_line}
+ default_value one_line,desc
+ } \
+ -orderby_name orderby_project \
+ -sub_class {
+ narrow
+ } \
+ -html {
+ width 100%
+ } -formats {
+ assign {
+ label "Assign Layout"
+ layout table
+ row {
+ assign {}
+ one_line {}
+ description {}
+ owner_name {}
+ }
+ }
+ manage {
+ label "Assign Layout"
+ layout table
+ row {
+ edit {}
+ one_line {}
+ description {}
+ owner_name {}
+ instances {}
+ delete {}
+ }
+ }
+ }
+
+set mode_carryover $mode
+db_multirow -extend { delete_url creation_date owner_url process_url assign_url mode } processes process_query {
+} {
+ set mode $mode_carryover
+ set delete_url [export_vars -base "process-delete" {process_id}]
+ set creation_date [lc_time_fmt $creation_date_ansi "%x"]
+ set owner_url [acs_community_member_url -user_id $party_id]
+ set process_url [export_vars -base process -url {process_id}]
+ if { [exists_and_not_null assignee_id] } {
+ set assign_url [export_vars -base process-assign -url {assignee_id process_id}]
+ } else {
+ set assign_url $process_url
+ }
+}
+
+
+# ------------------------- END OF FILE ------------------------- #
Index: openacs-4/packages/tasks/www/query.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/Attic/query.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/tasks/www/query.xql 27 Jul 2005 13:45:00 -0000 1.1
@@ -0,0 +1,94 @@
+
+