Process overview
+| Project: | +$project_name (\#$project_item_id) | +
| Overview of process: | +$process_name | +
$task_term and current status
+| $task_term name | +Slack time | +Lead | +Latest finish | " + + foreach ti $task_info { + set task_item_id [lindex $ti 0] + set subject [lindex $ti 1] + set today_j [lindex $ti 2] + set earliest_start_j [lindex $ti 3] + set latest_start_j [lindex $ti 4] + set latest_finish [lindex $ti 5] + set status_type [lindex $ti 6] + + set slack_time [pm::task::slack_time \ + -earliest_start_j $earliest_start_j \ + -today_j $today_j \ + -latest_start_j $latest_start_j] + + set pretty_latest_finish [lc_time_fmt $latest_finish "%x"] + + set lead_html "" + + # we highlight rows when the user is assigned to this task + set assignee_involved_p f + + foreach ass $assignees { + set to_addr [lindex $ass 0] + set role [lindex $ass 1] + set is_lead_p [lindex $ass 2] + set user_name [lindex $ass 3] + set my_task_id [lindex $ass 4] + + # ignore anything that isn't for this task + if {[string equal $my_task_id $task_item_id]} { + + if {[string is true $is_lead_p]} { + append lead_html "$user_name
|---|---|---|---|
| $subject | +$slack_time | +$lead_html | +$pretty_latest_finish | +
If the row is in red, you are involved in this task. If it is in grey, then it has already been completed.
" + + pm::util::email \ + -to_addr $to_address \ + -from_addr $from_address \ + -subject $subject_out \ + -body $notification_text \ + -mime_type "text/html" + } + +} + + +ad_proc -public pm::process::name { + {-process_instance_id:required} +} { + Returns the name when given a process_instance_id + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-10-20 + + @param process_instance_id + + @return + + @error +} { + + db_1row get_name { } + + return $process_name +} + + +ad_proc -public pm::process::process_name { + {-process_id:required} +} { + Returns the name when given a process_id + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-10-20 + + @param process_id + + @return + + @error +} { + + db_1row get_name { } + + return $one_line +} + + Index: openacs-4/packages/project-manager/tcl/project-manager-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-manager-procs-oracle.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/project-manager/tcl/project-manager-procs-oracle.xql 29 Apr 2005 17:43:37 -0000 1.1 @@ -0,0 +1,44 @@ + + + + + + + +" +# } + + set diff_pipe [open "| diff -f $old_f $new_f" "r"] + while {![eof $diff_pipe]} { + gets $diff_pipe diff + if {[regexp {^d(\d+)(\s+(\d+))?$} $diff full m1 m2]} { + if {$m2 != ""} {set d_end $m2} else {set d_end $m1} + for {set i $sv} {$i < $m1} {incr i} { + append res "${split_by}[lindex $old_w $i]" + } + for {set i $m1} {$i <= $d_end} {incr i} { + append res "${split_by}${start_old}[lindex $old_w $i]${end_old}" + } + set sv [expr $d_end + 1] + } elseif {[regexp {^c(\d+)(\s+(\d+))?$} $diff full m1 m2]} { + if {$m2 != ""} {set d_end $m2} else {set d_end $m1} + for {set i $sv} {$i < $m1} {incr i} { + append res "${split_by}[lindex $old_w $i]" + } + for {set i $m1} {$i <= $d_end} {incr i} { + append res "${split_by}${start_old}[lindex $old_w $i]${end_old}" + } + while {![eof $diff_pipe]} { + gets $diff_pipe diff + if {$diff == "."} { + break + } else { + append res "${split_by}${start_new}${diff}${end_new}" + } + } + set sv [expr $d_end + 1] + } elseif {[regexp {^a(\d+)$} $diff full m1]} { + set d_end $m1 + for {set i $sv} {$i < $m1} {incr i} { + append res "${split_by}[lindex $old_w $i]" + } + while {![eof $diff_pipe]} { + gets $diff_pipe diff + if {$diff == "."} { + break + } else { + append res "${split_by}${start_new}${diff}${end_new}" + } + } + set sv [expr $d_end + 1] + } + } + + for {set i $sv} {$i < [llength $old_w]} {incr i} { + append res "${split_by}[lindex $old_w $i]" + } + + file delete -- $old_f $new_f + + return $res +} + + +ad_proc -public pm::util::logger_url {} { + Returns the URL for the primary logger URL + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-05-24 + + @return + + @error +} { + set return_val [parameter::get -parameter "LoggerPrimaryURL" -default ""] + + if {[empty_string_p $return_val]} { + ns_log Error "Project-manager: need to set up LoggerPrimaryURL in parameters" + util_user_message -message "Administrator needs to set up logger integration" + } + + return $return_val +} + + +ad_proc -public pm::util::general_comment_add { + {-object_id:required} + {-title:required} + {-comment ""} + {-mime_type:required} + {-user_id ""} + {-peeraddr ""} + {-type "task"} + {-send_email_p "f"} +} { + Adds a general comment to a task or project + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-06-10 + + @param object_id The item_id for the task or project + + @param title The title for the comment + + @param comment The body of the comment + + @param mime_type The mime_type for the comment + + @param user_id Optional, the user_id making the comment. If left + empty, set to the ad_conn user_id + + @param peeraddr The IP address of the user making the comment. + If empty, set to the ad_conn peeraddr + + @param type Either task or project. + + @param send_email_p Whether or not to send out an email + notification t or f + + @return the comment_id of the new comment + + @error -1 if there is an error +} { + if {[empty_string_p $user_id]} { + set user_id [ad_conn user_id] + } + + if {[empty_string_p $peeraddr]} { + set peeraddr [ad_conn peeraddr] + } + + if {![string equal $type task] && ![string equal $type project]} { + return -1 + } + + # insert the comment into the database + set is_live [ad_parameter AutoApproveCommentsP {general-comments} {t}] + + set comment_id [db_nextval acs_object_id_seq] + + db_transaction { + db_exec_plsql insert_comment { + select acs_message__new ( + :comment_id, -- 1 p_message_id + NULL, -- 2 p_reply_to + current_timestamp, -- 3 p_sent_date + NULL, -- 4 p_sender + NULL, -- 5 p_rfc822_id + :title, -- 6 p_title + NULL, -- 7 p_description + :mime_type, -- 8 p_mime_type + NULL, -- 9 p_text + NULL, -- empty_blob() -- 10 p_data + 0, -- 11 p_parent_id + :object_id, -- 12 p_context_id + :user_id, -- 13 p_creation_user + :peeraddr, -- 14 p_creation_ip + 'acs_message', -- 15 p_object_type + :is_live -- 16 p_is_live + ) + } + + db_dml add_entry { + insert into general_comments + (comment_id, + object_id, + category) + values + (:comment_id, + :object_id, + null) + } + + db_1row get_revision { + select content_item__get_latest_revision(:comment_id) as revision_id + } + + db_dml set_content { + update cr_revisions + set content = :comment + where revision_id = :revision_id + } + + if {![empty_string_p $user_id]} { + permission::grant \ + -object_id $comment_id \ + -party_id $user_id \ + -privilege "read" + + permission::grant \ + -object_id $comment_id \ + -party_id $user_id \ + -privilege "write" + } + + } + + # now send out email + + if {[string equal $send_email_p t]} { + + # task + + if {[string equal $type task]} { + + set assignees [pm::task::assignee_email_list -task_item_id $object_id] + + if {[llength $assignees] > 0} { + + set to_address $assignees + + set from_address [db_string get_from_email "select email from parties where party_id = :user_id" -default "nobody@nowhere.com"] + + set task_url [pm::task::get_url $object_id] + + set subject "Task comment: $title" + + # convert to HTML + set richtext_list [list $comment $mime_type] + set comment_html [template::util::richtext::get_property html_value $richtext_list] + + set content "$title $comment_html" + + pm::util::email \ + -to_addr $to_address \ + -from_addr $from_address \ + -subject $subject \ + -body $content \ + -mime_type "text/html" + } + + } + + # project + + if {[string equal $type project]} { + + set assignees [pm::project::assignee_email_list -project_item_id $object_id] + + if {[llength $assignees] > 0} { + + set to_address $assignees + + set from_address [db_string get_from_email "select email from parties where party_id = :user_id" -default "nobody@nowhere.com"] + + set project_url [pm::project::url \ + -project_item_id $object_id] + + set subject "Project comment: $title" + + # convert to HTML + set richtext_list [list $comment $mime_type] + set comment_html [template::util::richtext::get_property html_value $richtext_list] + + set content "$title $comment_html" + + + pm::util::email \ + -to_addr $to_address \ + -from_addr $from_address \ + -subject $subject \ + -body $content \ + -mime_type "text/html" + } + + + } + } + + + return $comment_id +} + + +ad_proc -public pm::util::email { + {-to_addr:required} + {-from_addr:required} + {-subject:required} + {-body ""} + {-mime_type "text/plain"} +} { + Wrapper to send out email, also converts body to text/plain format + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-06-10 + + @param to_addr list of email addresses to send to + + @param from_addr + + @param subject + + @param body + + @param mime_type + + @return + + @error +} { + + # HTML portions of this copied from notification::email::send + + if {[string equal $mime_type "text/plain"]} { + set body_text $body + set body_html [ad_html_text_convert -from $mime_type -to "text/html" -- $body] + } elseif {[string equal $mime_type "text/html"]} { + set body_text [ad_html_text_convert -from $mime_type -to "text/plain" -- $body] + set body_html $body + + } else { + set body_text [ad_html_text_convert -from $mime_type -to "text/plain" -- $body] + set body_html [ad_html_text_convert -from $mime_type -to "text/html" -- $body] + + } + + # Use this to build up extra mail headers + set extra_headers [ns_set new] + + # This should disable most auto-replies + ns_set put $extra_headers Precedence list + + set message_data [build_mime_message $body_text $body_html] + ns_set put $extra_headers MIME-Version [ns_set get $message_data MIME-Version] + ns_set put $extra_headers Content-ID [ns_set get $message_data Content-ID] + ns_set put $extra_headers Content-Type [ns_set get $message_data Content-Type] + set content [ns_set get $message_data body] + + foreach to $to_addr { + + acs_mail_lite::send \ + -to_addr "$to" \ + -from_addr "$from_addr" \ + -subject "$subject" \ + -body $content \ + -extraheaders $extra_headers + } +} + + +ad_proc -public pm::util::category_selects { + {-export_vars ""} + {-category_id ""} + {-package_id ""} +} { + Returns an HTML fragment of forms, one for each + category tree, suitable for use on a page. + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-06-11 + + @param export_vars Variables already exported with export_vars -form + + @param category_id If set, the currently selected category + + @return + + @error +} { + if {[empty_string_p $package_id]} { + set package_id [ad_conn package_id] + } + + # caches results for 2.5 minutes. + return [util_memoize [list pm::util::category_selects_not_cached -export_vars $export_vars -category_id $category_id -package_id $package_id] 300] +} + + + +ad_proc -private pm::util::category_selects_not_cached { + {-export_vars ""} + {-category_id ""} + -package_id:required +} { + Returns an HTML fragment of category choices, suitable + for use on a page. This proc + is used so that pm::util::category_selects can cache + the categories + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-06-11 + + @param export_vars Variables already exported with export_vars -form + + @param category_id If set, the currently selected category + + @return + + @error +} { + # Categories are arranged into category trees. + # Set up an array for each tree. The array contains the category for each tree + + set category_select "" + set number_of_categories 0 + set last_tree "" + set category_select "" + + db_foreach get_categories { } { + + if {![string equal $tree_name $last_tree] } { + append category_select "" + } + + if {[string equal $cat_id $category_id]} { + set select "selected" + } else { + set select "" + } + + append category_select "" + + set last_tree $tree_name + incr number_of_categories + } + + if {$number_of_categories < 1} { + return "" + } + + set return_val "" + + return $return_val +} + + +ad_proc -public pm::util::package_id { +} { + Returns the package ID for the project manager. + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-09-16 + + @return + + @error +} { + return [db_string get_package_id { + SELECT + package_id + FROM + cr_folders + WHERE + description = 'Project Repository' + LIMIT 1 + }] +} + + +ad_proc -public pm::util::url { + {-fully_qualified_p "t"} +} { + Returns the URL of where the project manager is located, + fully qualified + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-09-16 + + @return + + @error +} { + set package_id [pm::util::package_id] + + if {[string is true $fully_qualified_p]} { + set return_val [ad_url] + } else { + set return_val "" + } + append return_val [site_node::get_url_from_object_id -object_id $package_id] + + return $return_val +} + + +ad_proc -public pm::util::subsite_assignees_list_of_lists { +} { + Returns a list of lists of possible assignees + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-10-13 + + @return + + @error +} { + set subsite_id [ad_conn subsite_id] + return [util_memoize [list pm::util::subsite_assignees_list_of_lists_not_cached -subsite_id $subsite_id] 6000] +} + + +ad_proc -public pm::util::subsite_assignees_list_of_lists_not_cached { + {-subsite_id ""} +} { + Returns a list of lists of possible assignees + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-10-13 + + @return + + @error +} { + + if [empty_string_p $subsite_id] { + set subsite_id [ad_conn subsite_id] + } + + set user_group_id [application_group::group_id_from_package_id \ + -package_id $subsite_id] + + set assignees [db_list_of_lists get_assignees { }] + + return $assignees +} Index: openacs-4/packages/project-manager/tcl/project-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-procs-oracle.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/project-manager/tcl/project-procs-oracle.xql 29 Apr 2005 17:43:37 -0000 1.1 @@ -0,0 +1,187 @@ + + +
+ PROJECTS: + estimated_completion_date timestamptz, + earliest_completion_date timestamptz, + latest_completion_date timestamptz, + actual_hours_completed numeric, + estimated_hours_total numeric + TASKS: + earliest start(i) = max(activity_time(i-1) + earliest_start(i-1)) + earliest_finish(i) = earliest_start(i) + activity_time(i) + latest_start(i) = min(latest_start(i+1) - activity_time(i) + latest_finish(i) = latest_start(i) + activity_time(i) ++ + (i-1 means an item that this task depends on) + + + + These algorithms are explained at: + http://mscmga.ms.ic.ac.uk/jeb/or/netaon.html + + Tasks in ongoing projects are given null completion dates, + unless they already have deadlines. + + + + The statistics are computed based on: + + + Project statistics are based on that project + subproject statistics + + + That means if a project has a subproject, then the tasks for + both of those projects are put together in one list, and computed + together. + + + + So for a project with no subprojects, the values are computed + for the tasks in that project + + + For a project with subprojects, the statistics are based on the + tasks of both of those projects. + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-02-19 + + @param project_item_id The item_id for the project + + @return a list of task_item_ids of all tasks under a project, plus all subproject tasks. This is done so that the function can be recursive + + @error No error codes + +} { + + # Before hacking on this, you might want to look at: + # http://www.joelonsoftware.com/articles/fog0000000069.html + + # the first thing that should be done on this code is that it + # should be broken out to a number of utility procs. + + set debug 0 + + # TODO: + # + # ------------------------------------------------------------------------- + # to improve this in the future, be more intelligent about what is updated. + # i.e., this procedure updates everything, which is necessary sometimes, + # but not if you only edit one task. + # + # I added in an optimization to only save when something has + # changed -- JR + # ------------------------------------------------------------------------- + # Add in resource limits. (it's not realistic that 300 tasks can be done in + # one day) + # ------------------------------------------------------------------------- + # Use dependency types -- currently they're all treated like finish_to_start + # ------------------------------------------------------------------------- + + + # note if you want to understand the algorithms in this function, you + # should look at: + # http://mscmga.ms.ic.ac.uk/jeb/or/netaon.html + + if {[string is true $debug]} { + ns_log Notice "-----------------------------------------" + } + + # -------------------------------------------------------------------- + # for now, hardcode in a day is 8 hours. Later, we want to set this by + # person. + # -------------------------------------------------------------------- + set hours_day [pm::util::hours_day] + + + # ------------------------- + # get subprojects and tasks + # ------------------------- + set task_list [list] + set task_list_project [list] + + foreach sub_item [db_list_of_lists select_project_children { }] { + set my_id [lindex $sub_item 0] + set my_type [lindex $sub_item 1] + + if {[string equal $my_type "pm_project"]} { + + # --------------------------------------------- + # gets all tasks that are a part of subprojects + # --------------------------------------------- + set project_return [pm::project::compute_status $my_id] + set task_list_project [concat $task_list_project $project_return] + + } elseif {[string equal $my_type "pm_task"]} { + lappend task_list $my_id + } + } + + set task_list [concat $task_list $task_list_project] + + if {[string is true $debug]} { + ns_log Notice "Tasks in this project (task_list): $task_list" + } + + # ------------------------- + # no tasks for this project + # ------------------------- + if {[llength $task_list] == 0} { + return [list] + } + + # -------------------------------------------------------------- + # we now have list of tasks that includes all subprojects' tasks + # -------------------------------------------------------------- + + # returns actual_hours_completed, estimated_hours_total, and + # today_j (julian date for today) + db_1row tasks_group_query { } + + if {[string is true $debug]} { + ns_log notice "Today's date (julian format): $today_j" + } + + # -------------------------------------------------------------- + # Set up activity_time for all tasks + # Also set up deadlines for tasks that have hard-coded deadlines + # -------------------------------------------------------------- + + if {[string is true $debug]} { + ns_log notice "Going through tasks and saving their values" + } + + db_foreach tasks_query { } { + + # We now save information about all the tasks, so that we can + # save on database hits later. Specifically, what we'll do is + # we won't need to save changes if the earliest_start, + # earliest finish, latest_start and latest_finish all haven't + # changed at all. We also save whether the task is open (o) or + # closed(c). + + set old_ES_j($my_iid) $old_earliest_start_j + set old_EF_j($my_iid) $old_earliest_finish_j + set old_LS_j($my_iid) $old_latest_start_j + set old_LF_j($my_iid) $old_latest_finish_j + set task_percent_complete($my_iid) $my_percent_complete + + set activity_time($my_iid) [expr [expr $to_work * [expr 100 - $my_percent_complete] / 100]] + + if {[exists_and_not_null task_deadline_j]} { + + if {[string is true $debug]} { + ns_log notice "$my_iid has a deadline (julian: $task_deadline_j)" + } + + set latest_finish($my_iid) $task_deadline_j + + set latest_start($my_iid) [pm::project::latest_start \ + -end_date_j $task_deadline_j \ + -hours_to_complete $activity_time($my_iid) \ + -hours_day $hours_day] + + } + } + + # -------------------------------------------------------------------- + # We need to keep track of all the dependencies so we can meaningfully + # compute deadlines, earliest start times, etc.. + # -------------------------------------------------------------------- + + db_foreach dependency_query { } { + + # task_item_id depends on parent_task_id + lappend depends($task_item_id) $parent_task_id + + # parent_task_id is dependent on task_item_id + lappend dependent($parent_task_id) $task_item_id + + set dependency_types($task_item_id-$parent_task_id) $dependency_type + + if {[string is true $debug]} { + ns_log Notice "dependency (id: $dependency_id) task: $task_item_id parent: $parent_task_id type: $dependency_type" + } + } + + + # -------------------------------------------------------------- + # need to get some info on this project, so that we can base the + # task information off of them + # -------------------------------------------------------------- + + # gives up end_date_j, start_date_j, and ongoing_p + # if ongoing_p is t, then end_date_j should be null + db_1row project_info { } + + if {[string is true $ongoing_p] && ![empty_string_p $end_date_j]} { + ns_log Error "Project cannot be ongoing and have a non-null end-date. Setting end date to blank" + set end_date_j "" + } + + + # -------------------------------------------------------------- + # task_list contains all the tasks + # a subset of those do not depend on any other tasks + # -------------------------------------------------------------- + + # ---------------------------------------------------------------------- + # we want to go through and fill in all the values for earliest start. + # the brain-dead, brute force way of doing this, would be go through the + # task_list length(task_list) times, and each time, compute the values + # for each item that depends on one of those tasks. This is extremely + # inefficient. + # ---------------------------------------------------------------------- + # Instead, we create two lists, one is of tasks we just added + # earliest_start values for, the next is a new list of ones we're going to + # add earliest_start values for. We call these lists + # present_tasks and future_tasks + # ---------------------------------------------------------------------- + + set present_tasks [list] + set future_tasks [list] + + # ----------------------------------------------------- + # make a list of tasks that don't depend on other tasks + # ----------------------------------------------------- + # while we're at it, save earliest_start and earliest_finish + # info for these items + # ----------------------------------------------------- + + foreach task_item $task_list { + + if {![info exists depends($task_item)]} { + + set earliest_start($task_item) $start_date_j + set earliest_finish($task_item) [earliest_finish $earliest_start($task_item) $activity_time($task_item) $hours_day] + + lappend present_tasks $task_item + + if {[string is true $debug]} { + ns_log Notice "preliminary earliest_start($task_item): $earliest_start($task_item)" + } + } + } + + # ------------------------------- + # stop if we have no dependencies + # ------------------------------- + if {[llength $present_tasks] == 0} { + + if {[string is true $debug]} { + ns_log Notice "No tasks with dependencies" + } + + return [list] + } + + if {[string is true $debug]} { + ns_log Notice "present_tasks: $present_tasks" + } + + # ------------------------------------------------------ + # figure out the earliest start and finish times + # ------------------------------------------------------ + + while {[llength $present_tasks] > 0} { + + set future_tasks [list] + + foreach task_item $present_tasks { + + if {[string is true $debug]} { + ns_log Notice "-this task_item: $task_item" + } + + # ----------------------------------------------------- + # some tasks may already have earliest_start filled in + # the first run of tasks, for example, had their values + # filled in earlier + # ----------------------------------------------------- + + if {![exists_and_not_null earliest_start($task_item)]} { + + if {[string is true $debug]} { + ns_log Notice " !info exists for $task_item" + } + + # --------------------------------------------- + # set the earliest_start for this task = + # max(activity_time(i-1) + earliest_start(i-1)) + # + # (i-1 means an item that this task depends on) + # --------------------------------------------- + + set max_earliest_start 0 + + # testing if this fixes the bug + if {![exists_and_not_null depends($task_item)]} { + set depends($task_item) [list] + } + + foreach dependent_item $depends($task_item) { + + set my_earliest_start [my_earliest_start $earliest_start($dependent_item) $activity_time($dependent_item) $hours_day] + + if {$my_earliest_start > $max_earliest_start} { + set max_earliest_start $my_earliest_start + } + } + + set earliest_start($task_item) $max_earliest_start + + set earliest_finish($task_item) [earliest_finish $max_earliest_start $activity_time($task_item) $hours_day] + + if {[string is true $debug]} { + ns_log Notice \ + " earliest_start ($task_item): $earliest_start($task_item)" + ns_log Notice \ + " earliest_finish($task_item): $earliest_finish($task_item)" + } + + } + + # ------------------------------- + # add to list of tasks to process + # ------------------------------- + + if {[info exists dependent($task_item)]} { + set future_tasks [concat $future_tasks $dependent($task_item)] + } + } + + if {[string is true $debug]} { + ns_log Notice "future tasks: $future_tasks" + } + + set present_tasks $future_tasks + } + + # ---------------------------------------------- + # set up earliest date project will be completed + # ---------------------------------------------- + + set max_earliest_finish $today_j + + foreach task_item $task_list { + + if {[string is true $debug] && [exists_and_not_null earliest_finish($task_item)]} { + ns_log Notice "* EF: ($task_item): $earliest_finish($task_item)" + } + + if {[exists_and_not_null earliest_finish($task_item)] && $max_earliest_finish < $earliest_finish($task_item)} { + set max_earliest_finish $earliest_finish($task_item) + } + + } + + + # ----------------------------------------------------------------- + # Now compute latest_start and latest_finish dates. + # Note the latest_finish dates may be set to an arbitrary deadline. + # Also note that it is possible for a project to be ongoing. + # In that case, the latest_start and latest_finish dates should + # be set to null, unless there is a hard deadline (end_date). + # ----------------------------------------------------------------- + # If these represent the dependency hierarchy: + # 2155 + # / | \ + # 2161 2173 2179 + # | | + # 2167 2195 + # ---------------------------------------------------------------------- + # we want to go through and fill in all the values for latest start + # and latest_finish. + # the brain-dead, brute force way of doing this, would be go through the + # task_list length(task_list) times, and each time, compute the values + # for each item that depends on one of those tasks. This is extremely + # inefficient. + # ---------------------------------------------------------------------- + # Instead, we create two lists, one is of tasks we just added + # latest_finish values for, the next is a new list of ones we're going to + # add latest_finish values for. We call these lists + # present_tasks and future_tasks + # ---------------------------------------------------------------------- + # Here's a description of the algorithm. + # 1. The algorithm starts with those tasks that don't have other + # tasks depending on them. + # + # So in the example above, we'll start with + # present_tasks: 2167 2173 2195 + # future tasks: + # + # 2. While we make the present_tasks list, we store latest_start + # and latest_finish information for each of those tasks. If the + # project is ongoing, then we also keep track of tasks that have + # no latest_start or latest_finish. We keep this in the + # ongoing_task(task_id) array. If is exists, then we know that + # that task is an ongoing task, so no deadline will exist for it. + # + # 3. Stop if we don't have any dependencies + # + # 4. Then we get into a loop. + # While there are present_tasks: + # Create the future_tasks list + # For each present task: + # If the task has a dependent task: + # Go through these dependent tasks: + # If the dependent task is ongoing don't defer + # If the dependent task doesn't have LS set, + # then defer, and add to future_tasks list + # Otherwise set the LS value for that task + # If there are no deferals, get the minimum LS of + # dependents, set LF + # Add the dependent tasks to the future_tasks + # Set present_tasks equal to future_tasks, clear future_tasks + + # ---------------------------------------------------------------------- + # The biggest problem with this algorithm is that you can have items at + # two different levels in the hierarchy. + # + # if you trace through this algorithm, you'll see that we'll get to 2155 + # before 2161's values have been set, which can cause an error. The + # solution we arrive at is to defer to the future_tasks list any item + # that causes an error. That should work. + + set present_tasks [list] + set future_tasks [list] + + # ----------------------------------------------------- + # make a list of tasks that don't have tasks depend on them + # ----------------------------------------------------- + # while we're at it, save latest_start and latest_finish + # info for these items + # ----------------------------------------------------- + + if {[string is true $debug]} { + ns_log Notice "Starting foreach task-item $task_list" + } + + foreach task_item $task_list { + + if {![info exists dependent($task_item)]} { + + if {[string is true $debug]} { + ns_log Notice " !info exists dependent($task_item)" + } + + # we check this because some tasks already have + # hard deadlines set. + if {[info exists latest_finish($task_item)]} { + + # if the project needs to be completed before the + # actual hard deadline, then the project deadline + # has precedence. However, sometimes the project is + # ongoing, so we have to make sure that there actually + # is an end_date_j + + # commented out: we need to trust the user. If they + # set the deadline outside the project deadline, + # that's their business + + #if {![empty_string_p $end_date_j]} { + # if {$end_date_j < $latest_finish($task_item)} { + # set latest_finish($task_item) $end_date_j + # } + #} + + # we also set the latest_start date + + if {[string is false [exists_and_not_null activity_time($task_item)]]} { + set activity_time($task_item) 0 + ns_log Notice "setting activity_time($task_item) 0" + } + + set late_start_temp \ + [latest_start \ + -end_date_j $latest_finish($task_item) \ + -hours_to_complete $activity_time($task_item) \ + -hours_day $hours_day] + + if {$late_start_temp < $latest_start($task_item)} { + set latest_start($task_item) $late_start_temp + } + + } else { + + # this section is for items that have no solid + # deadline, but also have no items dependent on them + + # we either set the latest start and finish of the item or + # we specify that the task is an ongoing task + if {[empty_string_p $end_date_j]} { + set ongoing_task($task_item) true + + if {[string is true $debug]} { + ns_log Notice "NSDBAHNITD: end_date_j was empty ti:$task_item" + } + } else { + set latest_finish($task_item) $end_date_j + + if {[string is false [exists_and_not_null activity_time($task_item)]]} { + set activity_time($task_item) 0 + ns_log Notice "setting activity_time($task_item) 0 (location 2)" + } + + set latest_start($task_item) \ + [latest_start \ + -end_date_j $latest_finish($task_item) \ + -hours_to_complete $activity_time($task_item) \ + -hours_day $hours_day] + + } + } + lappend present_tasks $task_item + + if {[string is true $debug] && [exists_and_not_null latest_start($task_item)]} { + ns_log Notice "preliminary latest_start($task_item): $latest_start($task_item)" + } + + if {[string is true $debug] && [exists_and_not_null latest_finish($task_item)]} { + ns_log Notice "preliminary latest_finish($task_item): $latest_finish($task_item)" + } + + + + } else { + if {[string is true $debug]} { + ns_log Notice " info exists dependent($task_item)" + } + } + } + + + # ------------------------------- + # stop if we have no dependencies + # ------------------------------- + if {[llength $present_tasks] == 0} { + if {[string is true $debug]} { + ns_log Notice "No tasks with dependencies" + } + return [list] + } + + if {[string is true $debug]} { + ns_log Notice "LATEST present_tasks: $present_tasks" + } + + # ------------------------------------------------------ + # figure out the latest start and finish times + # ------------------------------------------------------ + + while {[llength $present_tasks] > 0} { + + set future_tasks [list] + + foreach task_item $present_tasks { + + if {[string is true $debug]} { + ns_log Notice "this task_item: $task_item" + } + + # ----------------------------------------------------- + # some tasks may already have latest_start filled in. + # the first run of tasks, for example, had their values + # filled in earlier + # ----------------------------------------------------- + + if {[info exists dependent($task_item)]} { + + if {[string is true $debug]} { + ns_log Notice " info exists for dependent($task_item)" + } + + # --------------------------------------------- + # set the latest_start for this task = + # min(latest_start(i+1) - activity_time(i)) + # + # (i+1 means an item that depends on this task) + # (i means this task) + # --------------------------------------------- + + # we set this to the end date, and then move it forward + # as we find dependent items that have earlier + # latest_start dates. The problem is that the + # end_date_j is empty when there is no deadline. + # So we need to remember that min_latest_start can + # be an empty value + + set min_latest_start $end_date_j + + if {[string is true $debug]} { + ns_log Notice " min_latest_start: $end_date_j" + } + + foreach dependent_item $dependent($task_item) { + + if {[string is true $debug]} { + ns_log Notice " dependent_item: $dependent_item" + } + + if {[exists_and_not_null ongoing_task($dependent_item)]} { + set defer_p f + set my_latest_start "" + + if {[string is true $debug]} { + ns_log Notice " ongoing_task, no defer" + } + + } elseif {![exists_and_not_null latest_start($dependent_item)]} { + # we defer the task if the dependent item has no + # latest_start date set + + if {[info exists defer_count($task_item)]} { + incr defer_count($task_item) + } else { + set defer_count($task_item) 1 + } + + # we use a magic number here. + # basically, we don't want to defer the + # item forever. Ideally, this should + # be cleaned up better. Defering is necessary + # given this algorithm, but there are + # times when you don't want to defer. + # This is hackish, and I'm embarrased, but on + # a deadline. :( + if {$defer_count($task_item) > 5} { + set defer_p f + + if {[string is true $debug]} { + ns_log Notice " no defer because defer count exceeded" + } + } else { + lappend future_tasks $task_item + + if {[string is true $debug]} { + ns_log Notice " defer" + } + + set defer_p t + } + + + + } else { + + # the dependent item has a deadline + + if {[string is false [exists_and_not_null activity_time($task_item)]]} { + set activity_time($task_item) 0 + ns_log Notice "setting activity_time($task_item) 0 (location 3)" + } + + set my_latest_start \ + [latest_start \ + -end_date_j $latest_start($dependent_item) \ + -hours_to_complete $activity_time($task_item) \ + -hours_day $hours_day] + + if {[string is true $debug]} { + ns_log Notice " my_latest_start: $my_latest_start" + } + + # we also only want to move forward the latest_start + # date if the dependent item is not already completed! + + if {$task_percent_complete($dependent_item) < 100} { + if {[exists_and_not_null min_latest_start]} { + if {$my_latest_start < $min_latest_start} { + set min_latest_start $my_latest_start + } + } else { + set min_latest_start $my_latest_start + } + } + + set defer_p f + } + + } + + if {[string equal $defer_p f]} { + + # we check that latest_start doesn't already exist + # which it might for hard-deadlines + + # we have to be fairly careful here. We want to + # set the latest_start date to the minimum + # latest_start, but only when min_latest_start + # actually has a value + + if {[exists_and_not_null latest_start($task_item)]} { + + if {[exists_and_not_null min_latest_start]} { + + if {$min_latest_start < $latest_start($task_item)} { + set latest_start($task_item) $min_latest_start + } + + } else { + + if {[string is true $debug]} { + ns_log notice " setting latest start date (ignoring min_latest_start" + } + + if {[string is false [exists_and_not_null activity_time($task_item)]]} { + set activity_time($task_item) 0 + ns_log Notice "setting activity_time($task_item) 0 (location 4)" + } + + + set latest_start($task_item) \ + [latest_start \ + -end_date_j $latest_finish($task_item) \ + -hours_to_complete $activity_time($task_item) \ + -hours_day $hours_day] + + } + } else { + + # so this task has no hard deadline. + # We now set the value to the minimum of the + # dependent tasks. Note that if the dependent + # tasks all have no hard deadlines, and the + # project is ongoing, then the value will be + # set to "" + + set latest_start($task_item) $min_latest_start + } + + if {[string is true $debug]} { + ns_log Notice " min_latest_start: $min_latest_start" + } + + # we now set the latest finish. Ongoing tasks set + # the latest finish to empty (sometimes) + if {[empty_string_p $latest_start($task_item)]} { + set temp_lf "" + } else { + set temp_lf [my_latest_finish $min_latest_start $activity_time($task_item) $hours_day] + } + + # if there is already a hard deadline for this + # task, then we check whether temp_lf is earlier, + # and set it to temp_lf if so + + if {[string is true $debug]} { + ns_log Notice " temp_lf: $temp_lf" + } + + if {[empty_string_p $temp_lf]} { + + # if the task is ongoing, we clear the + # latest_finish. Otherwise, we leave the + # latest_finish as it is. + + if {[exists_and_not_null ongoing_task($task_item)] && [string is true $ongoing_task($task_item)]} { + set latest_finish($task_item) "" + } + + } else { + if {[exists_and_not_null latest_finish($task_item)]} { + if {$temp_lf < $latest_finish($task_item)} { + set latest_finish($task_item) $temp_lf + } + } else { + set latest_finish($task_item) $temp_lf + } + } + + if {[string is true $debug]} { + if {[exists_and_not_null latest_start($task_item)]} { + ns_log Notice \ + " latest_start ($task_item): $latest_start($task_item)" + } + if {[exists_and_not_null latest_finish($task_item)]} { + ns_log Notice \ + " latest_finish($task_item): $latest_finish($task_item)" + } + } + + } else { + if {[string is true $debug]} { + ns_log Notice "Deferring $task_item" + } + } + } + + # ------------------------------- + # add to list of tasks to process + # ------------------------------- + + if {[info exists depends($task_item)]} { + set future_tasks [concat $future_tasks $depends($task_item)] + } + } + + if {[string is true $debug]} { + ns_log Notice "future tasks: $future_tasks" + } + + set present_tasks $future_tasks + } + + # ---------------------------------------------- + # set up latest start date for project + # ---------------------------------------------- + + if {[empty_string_p $end_date_j]} { + set min_latest_start "" + set max_earliest_finish "" + } else { + set min_latest_start $end_date_j + + foreach task_item $task_list { + + if {[string is true $debug]} { + ns_log Notice "* LS ($task_item): $latest_start($task_item)" + } + + if {[exists_and_not_null earliest_finish($task_item)] && $min_latest_start > $latest_start($task_item)} { + set max_earliest_finish $earliest_finish($task_item) + } + } + + set max_earliest_finish "J[expr floor([set max_earliest_finish])]" + set min_latest_start "J[expr floor([set min_latest_start])]" + } + + + # estimated_finish_date + # latest_finish + + db_dml update_project { } + + # now we go through and save all the values for the tasks! + # this is very inefficient and stupid + + foreach task_item $task_list { + + if {[exists_and_not_null earliest_start($task_item)]} { + set es "J[expr ceil( [set earliest_start($task_item)])]" + } else { + set es "" + } + + if {[exists_and_not_null earliest_finish($task_item)]} { + set ef "J[expr ceil( [set earliest_finish($task_item)])]" + } else { + set ef "" + } + + if {[exists_and_not_null latest_start($task_item)]} { + set ls "J[expr floor([set latest_start($task_item)])]" + } else { + set ls "" + } + + if {[exists_and_not_null latest_finish($task_item)]} { + set lf "J[expr floor($latest_finish($task_item))]" + } else { + set lf "" + } + + # Only update the task if something has actually + # changed. Hopefully this should help speed things up. + + if { \ + [string equal $es $old_ES_j($task_item)] && \ + [string equal $ef $old_EF_j($task_item)] && \ + [string equal $ls $old_LS_j($task_item)] && \ + [string equal $lf $old_LF_j($task_item)]} { + # do nothing + } else { + db_dml update_task { } + } + + + } + + + if {[string is true $debug]} { + ns_log Notice "*******************" + } + + return $task_list + +} + + + + +ad_proc -public pm::project::compute_parent_status {project_item_id} { + + When a project is updated, or a task updated within a project, we need to + update all the projects higher in the hierarchy. + + This may need to be fixed to add back in subproject support. +} { + set package_id [pm::util::package_id] + + # ns_log Notice "computing parents for $project_item_id and package_id: $package_id" + + + set my_item_id $project_item_id + set parent_id [db_string get_parent_id {}] + set last_item_id $my_item_id + + # trace up the hierarchy until we get one below the root + + set root_folder [db_exec_plsql get_root_folder { }] + + while {$parent_id != $root_folder && $parent_id != "-1"} { + set parent_id [db_string get_parent_id {} -default "-1"] + set last_item_id $my_item_id + set my_item_id $parent_id + } + + # ns_log Notice "root: $root_folder , last_item_id $last_item_id" + + set return_code [pm::project::compute_status $last_item_id] + + return $return_code +} + + + +ad_proc -public pm::project::get_logger_project { + -project_item_id:required +} { + Returns logger's project ID when given project manager's project ID + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-03-04 + + @param project_item_id + + @return logger's project_id + + @error returns no_project if no such project_item_id exists +} { + return [db_string get_logger_project " + SELECT + logger_project + FROM + pm_projects + WHERE + project_id = + (select live_revision from cr_items where item_id = :project_item_id) + " -default "no_project"] +} + + +ad_proc -public pm::project::get_project { + -logger_project:required +} { + Returns the project_item_id when given the logger project + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-05-28 + + @param logger_project + + @return project_item_id + + @error +} { + return [db_string get_logger_project " + SELECT + i.item_id + FROM + pm_projectsx p, cr_items i + WHERE + i.live_revision = p.revision_id and logger_project = :logger_project + " -default "no_project"] + +} + + +ad_proc -public pm::project::get_list_of_open { +} { + Returns a list of lists, of all open project ids and their names. + + We should util_memoize this. It will dramatically improve the + speed of the task edits. + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-05-13 + + @return list of lists, with project id and name + + @error +} { + + set return_val [db_list_of_lists get_vals { }] + + return $return_val +} + + +ad_proc -public pm::project::select_list_of_open { + {-selected ""} +} { + Returns a select list of all open project ids and their names + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-10-13 + + @return html for select list of open projects + + @error +} { + # is the selected project closed? + set open_p [pm::project::open_p -project_item_id $selected] + + if {[string is false $open_p]} { + set name [pm::project::name -project_item_id $selected] + set html "" + } else { + set html "" + } + + set list_of_lists [pm::project::get_list_of_open] + + foreach lol $list_of_lists { + set name [lindex $lol 0] + set id [lindex $lol 1] + + if {[string equal $id $selected]} { + set sel "selected=\"selected\"" + } else { + set sel "" + } + + append html "\n" + } + + return $html +} + + +ad_proc -public pm::project::close { + {-project_item_id:required} +} { + Closes a project + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-07-02 + + @param project_item_id + + @return + + @error +} { + + set closed_id [pm::status::default_closed] + + db_dml update_status { + UPDATE + pm_projects + SET + status_id = :closed_id + WHERE + project_id in (select live_revision from cr_items where item_id = :project_item_id) + } + +} + + +ad_proc -public pm::project::open_p { + {-project_item_id:required} +} { + Returns true if the project is open + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-06-03 + + @param project_item_id + + @return 1 if open, 0 if closed + + @error +} { + set return_val [db_string get_open_or_closed { + SELECT + case when status_type = 'c' then 0 else 1 end + FROM + pm_projectsx p, + cr_items i, + pm_project_status s + WHERE + i.item_id = p.item_id and + i.live_revision = p.revision_id and + p.status_id = s.status_id and + p.item_id = :project_item_id + } -default "0"] + + return $return_val +} + + +ad_proc -public pm::project::assign { + {-project_item_id:required} + {-role_id:required} + {-party_id:required} + {-send_email_p "t"} +} { + Assigns a user to a project + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-06-11 + + @param project_item_id + + @param role_id + + @param party_id + + @return + + @error +} { + + db_dml insert_assignment { + insert into pm_project_assignment + (project_id, role_id, party_id) + VALUES + (:project_item_id, :role_id, :party_id) + } + + # Flush the cache that remembers which roles to offer the current user in the 'assign role to myself' listbox + util_memoize_flush [list pm::role::project_select_list_filter_not_cached -project_item_id $project_item_id -party_id $party_id] + + if {[string is true $send_email_p]} { + + set project_name [pm::project::name \ + -project_item_id $project_item_id] + + set project_url [pm::project::url \ + -project_item_id $project_item_id] + + set to_addr [cc_email_from_party $party_id] + set from_addr [cc_email_from_party [ad_conn user_id]] + set role [pm::role::name -role_id $role_id] + + set subject "Assigned to project: $project_name" + + set content "
| You have been assigned to a project: $project_name (as $role) |
+ numX ++ + where X represents the number of the new task, ranging from 1 + to n. + + + + To be more efficient when creating multiple tasks at the same + time, we should cache the database calls. + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-05-13 + + @param edit_p Is this for a task being edited? Or a new task? + + @param project_item_id The project we're finding tasks from + + @param task_item_id The task ID. This is used because we do not + want a task to depend on itself, so it is excluded from the list. + + @param dependency_task_ids For edited tasks, the current task_ids + that it depends on. Used because sometimes it can be closed, and + it wouldn't otherwise appear on the list. This is a list. + + @param number When the list is returned, it includes entries for + number new tasks, in the numX format described in these docs. + + @param current_number The current number. Used for new tasks. It + prevents allowing dependencies on the task being created. + + @return + + @error +} { + + # get tasks this task can depend on + + if {[exists_and_not_null dependency_task_ids]} { + + set union_clause " + UNION + SELECT + r.item_id, + r.title as task_title + FROM + pm_tasks_revisionsx r, + cr_items i, + pm_tasks_active t + WHERE + r.parent_id = :project_item_id and + r.revision_id = i.live_revision and + i.item_id = t.task_id + and t.task_id in ([join $dependency_task_ids ","])" + } else { + set union_clause "" + } + + set keys [list] + + db_foreach get_dependency_tasks { } { + set options($task_title) $item_id + lappend keys $task_title + } + + set keys [lsort $keys] + + + set dependency_options_full "{\"--None--\" \"\"} " + + if {[string is true $edit_p]} { + # Do nothing + } else { + + # now set up dependency options + + for {set j 1} {$j <= $number} {incr j} { + if {![string equal $current_number $j]} { + append dependency_options_full "{\"New Task \#$j\" \"num$j\"} " + } + } + } + + # for editing tasks, we skip ourselves (because depending on + # ourselves just sometimes isn't an option) + + if {[string is true $edit_p]} { + foreach key $keys { + + # make sure we're not dependent on ourselves + + if {![string equal $task_item_id $options($key)]} { + # check for case when there is a quote in the name of + # a task. We have to filter this out, or we get an error. + append dependency_options_full "{{$key} $options($key)} " + } + } + } else { + foreach key $keys { + + # check for case when there is a quote in the name of + # a task. We have to filter this out, or we get an error. + append dependency_options_full "{{$key} $options($key)} " + } + } + + + return $dependency_options_full +} + + +ad_proc -public pm::task::options_list_html { + {-edit_p "f"} + -project_item_id + {-task_item_id ""} + {-dependency_task_id ""} + {-dependency_task_ids ""} + {-number "0"} + {-depends_on_new ""} + {-current_number "0"} +} { + Returns a list of options suiteable for HTML. + Contains a list of possible tasks that this task can + depend upon, or selected. These tasks are limited to just the + one project. + + + + There is one special case that we handle: if you are creating new + tasks (not editing), you can have them depend on each other. + So if you create two tasks at the same time, you may want task + 2 to depend on task 1. Instead of a task_item_id, we then + specify a value of this form: + +
+ numX ++ + where X represents the number of the new task, ranging from 1 + to n. + + + + To be more efficient when creating multiple tasks at the same + time, we should cache the database calls. + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-05-13 + + @param edit_p Is this for a task being edited? Or a new task? + + @param project_item_id The project we're finding tasks from + + @param task_item_id The task ID. This is used because we do not + want a task to depend on itself, so it is excluded from the list. + + @param dependency_task_ids For edited tasks, the current task_ids + that it depends on. Used because sometimes it can be closed, and + it wouldn't otherwise appear on the list. This is a list. + + @param dependency_task_id For edited tasks, the current task that + it depends on, used for setting the default option in HTML. + + @param number When the list is returned, it includes entries for + number new tasks, in the numX format described in these docs. + + @param depends_on_new When you're using a process, you want the + dependency to be on other new tasks. The format for this should + be num1 num2, etc.. So we make the default if this parameter is set. + + @param current_number The current number. Used for new tasks. It + prevents allowing dependencies on the task being created. + + @return + + @error +} { + + # get tasks this task can depend on + + if {[exists_and_not_null dependency_task_ids]} { + + set union_clause " + UNION + SELECT + r.item_id, + r.title as task_title + FROM + pm_tasks_revisionsx r, + cr_items i, + pm_tasks_active t + WHERE + r.parent_id = :project_item_id and + r.revision_id = i.live_revision and + i.item_id = t.task_id + and t.task_id in ([join $dependency_task_ids ","])" + } else { + set union_clause "" + } + + set keys [list] + + db_foreach get_dependency_tasks { } { + set options($task_title) $item_id + lappend keys $task_title + } + + set keys [lsort $keys] + + # --------------------------------------------------------------- + # Start setting up the output. + # These are for new tasks, the already created tasks are added to + # the list later. + # --------------------------------------------------------------- + + set dependency_options_full " " + + if {[string is false $edit_p]} { + + # now set up dependency options + + for {set j 1} {$j <= $number} {incr j} { + + if {[string equal $depends_on_new $j]} { + set selected "selected=\"selected\" " + } else { + set selected "" + } + + if {![string equal $current_number $j]} { + append dependency_options_full " " + } + } + } + + # ------------------------------------------------- + # Now add the tasks that are already in the project + # ------------------------------------------------- + + + if {[string is true $edit_p]} { + foreach key $keys { + + # for editing tasks, we skip ourselves (because depending on + # ourselves just sometimes isn't an option) + if {![string equal $task_item_id $options($key)]} { + + if {[string equal $options($key) $dependency_task_id]} { + set selected "selected=\"selected\" " + } else { + set selected "" + } + + # check for case when there is a quote in the name of + # a task. We have to filter this out, or we get an + # error. -- not sure what this comment is for -- JR + + + append dependency_options_full " " + } + } + } else { + + foreach key $keys { + + # check for case when there is a quote in the name of a + # task. We have to filter this out, or we get an error. -- + # not sure what this comment is for -- JR + + append dependency_options_full " " + } + } + + + return $dependency_options_full +} + + +ad_proc -public pm::task::dependency_delete_all { + -task_item_id:required + +} { + Deletes all the dependencies of a task + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-02-23 + + @param task_item_id The task we wish to remove the dependencies from. + + @return + + @error +} { + db_dml delete_deps { } + + return 1 +} + + +ad_proc -public pm::task::dependency_add { + -task_item_id:required + -parent_id:required + -dependency_type:required + -project_item_id:required +} { + + Adds a dependency to a task, checking for loops in the process + + + + We make the assumption that the following is true: + +
-
+
- no loop is created if you depend on a task already present +
- therefore, if you add a task without creating a loop in the + newly created tasks, you are safe. +
Overdue Tasks
" + + set overdue_description "consult with people affected, and let them know deadlines are affected" + + set pressing_title "Pressing Tasks
" + + set pressing_description "you need to start working on these soon to avoid affecting deadlines" + + set longterm_title "Long Term Tasks
" + + set longterm_description "look over these to plan ahead" + + # okay, let's now set up the email body + + set description " +This is a daily reminder of tasks that are assigned to you +You currently have $task_count($party) tasks assigned to you
+ +$overdue_title + ++ +$overdue_description + +
| Task \# | +Subject | +Role | +Latest start | +Latest finish | +Slack | +
|---|
+ +$pressing_description + +
| Task \# | +Subject | +Role | +Latest start | +Latest finish | +Slack | +
|---|
| Task \# | +Subject | +Role | +Latest start | +Latest finish | +Slack | +
|---|
Comment:
$comment" + } + + set url [pm::task::get_url $task_item_id] + + set description [ad_html_text_convert -from $description_mime_type -to "text/html" -- $description] + + set extra_description [ad_html_text_convert -from "text/plain" -to "text/html" -- $extra_description] + + set description_out "$description $extra_description" + + set assignees [db_list_of_lists get_assignees { }] + + if {[exists_and_not_null $process_instance]} { + + set process_url [pm::process::url \ + -process_instance_id $process_instance \ + -project_item_id $project_item_id] + + set process_description [pm::process::name \ + -process_instance_id $process_instance] + + set process_html " +Process
+| $process_description | +
Task overview
+| Subject: | +$subject (\#$task_item_id) | +
| Project: | +$project_name | +
| Your role: | +$role | +
Description
+| $description_out | +
Dates:
+| Latest start: | +$latest_start | +
| Latest finish | +$latest_finish | +
| $role_name"
+
+ foreach assignee_list $assignee_list_of_lists {
+ set name [lindex $assignee_list 0]
+ set person_id [lindex $assignee_list 1]
+
+ if {[lsearch $task_assignee_list_of_lists [list $person_id $role]] >= 0} {
+
+ append html "
+ $name
+ " + + } else { + + append html " + $name + " + } + + } + + append html " | "
+
+ }
+
+ append html "
| + | ++ + | ++ | +
| + Month + | ++ Day + | ++ Year + | +
- [join $changes "
- "]
|
+
+
+
+ @category_select;noquote@
+
+ |
+
+
+
+ |
+
+
(not current, select live version from the task change page)
+
+
+
|
+
+
+
|
+ |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+
+ Are you sure you want to delete this process: @one_line@ + +
+ @description@ ++ +
+ Delete + + Cancel, do not delete +
Index: openacs-4/packages/project-manager/www/process-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-delete.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/project-manager/www/process-delete.tcl 29 Apr 2005 17:43:37 -0000 1.1 @@ -0,0 +1,41 @@ +# + +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/04/29 17:43:37 timoh 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 + +pm::process::delete -process_id $process_id + +ad_returnredirect -message "Process deleted" $return_url Index: openacs-4/packages/project-manager/www/process-dependency-add-edit-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-dependency-add-edit-oracle.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/project-manager/www/process-dependency-add-edit-oracle.xql 29 Apr 2005 17:43:37 -0000 1.1 @@ -0,0 +1,36 @@ + +
+
+ }
+ }
+ 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/project-manager/www/process-instances.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-instances.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/www/process-instances.xql 29 Apr 2005 17:43:37 -0000 1.1
@@ -0,0 +1,38 @@
+
+
+
+
+
+
+
+-
+
- Use all tasks in this process: @use_link;noquote@ +
- + + +
![](\"/shared/images/go.gif\")
"
+
+
+set elements \
+ [list \
+ one_line {
+ label "Subject"
+ display_template {@tasks.one_line@
+ 
+ 
+ 
+ 
+ +
| Assignee: $role_name"
+
+ foreach assignee_list $assignee_list_of_lists {
+ set name [lindex $assignee_list 0]
+ set person_id [lindex $assignee_list 1]
+
+ if {[exists_and_not_null assigned($process_task_id_tmp-$person_id-$role)]} {
+ set checked "checked"
+ } else {
+ set checked ""
+ }
+
+ append html "
+ $name
+ + " + + } + + append html " | "
+
+ }
+
+ append html "
| @tasks.one_line@ | +|
|---|---|
|
+ + |
+ |
+ }
+ }
+ } \
+ -main_class {
+ narrow
+ } \
+ -actions {
+ "Add process" "process-add-edit" "Add a process"
+ } \
+ -filters {
+ orderby_process {}
+ } \
+ -orderby {
+ one_line {orderby one_line}
+ default_value one_line,desc
+ } \
+ -orderby_name orderby_project \
+ -html {
+ width 100%
+ }
+
+
+db_multirow -extend { delete_url creation_date } processes process_query {
+} {
+ set delete_url [export_vars -base "process-delete" {process_id}]
+ set creation_date [lc_time_fmt $creation_date_ansi "%x"]
+}
+
+
+# ------------------------- END OF FILE ------------------------- #
Index: openacs-4/packages/project-manager/www/project-assign-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/project-assign-add.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/www/project-assign-add.tcl 29 Apr 2005 17:43:38 -0000 1.1
@@ -0,0 +1,42 @@
+#
+
+ad_page_contract {
+
+ Adds assignees to a project
+
+ @author Jade Rubick (jader@bread.com)
+ @creation-date 2004-06-11
+ @arch-tag: f52518ee-57d2-474b-a627-9050654c2f3f
+ @cvs-id $Id: project-assign-add.tcl,v 1.1 2005/04/29 17:43:38 timoh Exp $
+} {
+ project_item_id:notnull
+ user_id:notnull,multiple
+ role_id:notnull,multiple
+ return_url:notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+set index 0
+
+foreach user $user_id {
+
+ set role [lindex $role_id $index]
+
+ pm::project::assign \
+ -project_item_id $project_item_id \
+ -role_id $role_id \
+ -party_id $user
+
+
+ incr index
+}
+
+if {[llength $user_id] > 1} {
+ set assign "Assignments"
+} else {
+ set assign "Assignment"
+}
+
+ad_returnredirect -message "$assign saved" $return_url
Index: openacs-4/packages/project-manager/www/project-assign-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/project-assign-edit-2.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/www/project-assign-edit-2.tcl 29 Apr 2005 17:43:38 -0000 1.1
@@ -0,0 +1,44 @@
+#
+
+ad_page_contract {
+
+ Processes the form for assignments and removals
+
+ @author Jade Rubick (jader@bread.com)
+ @creation-date 2004-06-11
+ @arch-tag: acef7904-fdc0-4fd7-9346-b6a1e011f604
+ @cvs-id $Id: project-assign-edit-2.tcl,v 1.1 2005/04/29 17:43:38 timoh Exp $
+} {
+ project_item_id:integer,notnull
+ return_url:notnull
+ assignee:multiple
+} -properties {
+} -validate {
+} -errors {
+}
+
+set user_id [auth::require_login]
+
+# remove assignments
+set current_assignees [pm::project::assign_remove_everyone \
+ -project_item_id $project_item_id]
+
+foreach ass $assignee {
+
+ regexp {(.*)-(.*)} $ass match party_id role_id
+
+ if {[lsearch $current_assignees $party_id] > -1} {
+ set send_email_p f
+ } else {
+ set send_email_p t
+ }
+
+ pm::project::assign \
+ -project_item_id $project_item_id \
+ -party_id $party_id \
+ -role_id $role_id \
+ -send_email_p $send_email_p
+
+}
+
+ad_returnredirect -message "Assignments saved" $return_url
Index: openacs-4/packages/project-manager/www/project-assign-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/project-assign-edit.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/www/project-assign-edit.adp 29 Apr 2005 17:43:38 -0000 1.1
@@ -0,0 +1,7 @@
+| @tasks.one_line@ | +|
|---|---|
|
+ + |
+ |
- "
+
+foreach user $user_id {
+
+ set role [lindex $role_id $index]
+
+ pm::task::assign \
+ -task_item_id $task_item_id \
+ -role_id $role_id \
+ -party_id $user
+
+ append comment "
- Added: [person::name -person_id $user] " + + incr index +} + +append comment "
- "
+set comment_list [list]
+
+foreach user $user_id {
+
+ set assigned_p [pm::task::assigned_p \
+ -task_item_id $task_item_id \
+ -party_id $user]
+
+ pm::task::unassign \
+ -task_item_id $task_item_id \
+ -party_id $user
+
+ if {[string is true $assigned_p]} {
+ lappend comment_list "
- Removed: [person::name -person_id $user] " + } +} + +append comment_post "
View options
+ + @hide_show_closed;noquote@ + +Key
+ +-
+
- @roles.abbreviation;noquote@ +
- @roles.role;noquote@ +
Users to view
+ + Index: openacs-4/packages/project-manager/www/task-calendar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-calendar.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/project-manager/www/task-calendar.tcl 29 Apr 2005 17:43:38 -0000 1.1 @@ -0,0 +1,130 @@ +# /packages/room-reservation/www/room-reservations.tcl + +ad_page_contract { + + Shows tasks on the calendar + + @author Jade Rubick (jader@bread.com) + @author Deds Castillo (deds@infiniteinfo.com) + @creation-date 2002-08-28 + @cvs-id $Id: task-calendar.tcl,v 1.1 2005/04/29 17:43:38 timoh Exp $ + +} { + {view "month"} + {date ""} + {julian_date ""} + {hide_closed_p "t"} +} -properties { + title:onevalue + context:onevalue + roles:multirow +} + +set user_id [auth::require_login] + +set date [calendar::adjust_date -date $date -julian_date $julian_date] + +set title "Task calendar" +set context [list $title] +set header_stuff " +" + +set return_url [ad_return_url] + +set edit_hidden_vars [export_vars -form {return_url}] + +set calendar [pm::calendar::one_month_display \ + -user_id $user_id \ + -date $date \ + -hide_closed_p $hide_closed_p \ + ] + + +if {[string is true $hide_closed_p]} { + set hide_show_closed "Show closed" + set here [export_vars -base task-calendar {{hide_closed_p f} view date julian_date}] +} else { + set hide_show_closed "Hide closed" + set here [export_vars -base task-calendar {{hide_closed_p t} view date julian_date}] +} + +# --------------------------------------------- +# make a key of list of roles and abbreviations +# --------------------------------------------- + +db_multirow roles roles_and_abbrevs { + SELECT + one_line as role, + substring(one_line from 1 for 1) as abbreviation + FROM + pm_roles +} + + +# ------------------------------------- +# make a list of users in this subsite. +# ------------------------------------- + +set users_to_view [pm::calendar::users_to_view] + +set subsite_id [ad_conn subsite_id] + +set user_group_id [application_group::group_id_from_package_id \ + -package_id $subsite_id] + + +db_multirow -extend {checked_p} users users_list { + select + p.first_names || ' ' || p.last_name as name, + p.person_id as party_id + FROM + persons p, + acs_rels r, + membership_rels mr + WHERE + r.object_id_one = :user_group_id and + mr.rel_id = r.rel_id and + p.person_id = r.object_id_two and + member_state = 'approved' + ORDER BY + p.first_names, p.last_name +} { + if {[lsearch $users_to_view $party_id] == -1} { + set checked_p f + } else { + set checked_p t + } +} Index: openacs-4/packages/project-manager/www/task-delete-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-delete-oracle.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/project-manager/www/task-delete-oracle.xql 29 Apr 2005 17:43:38 -0000 1.1 @@ -0,0 +1,31 @@ + +(not current, select live version from the task change page)
+
+
+
|
+ + + | +
+
+
|
+ ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+
+
+
+
+
+
+
+
+
+
+
|
+
+
+
|
+||||||||||||||||||||||||||||||||||
+
+
+
+
+
+
+
+ |
+
+
+
+ |
+
+
+
+ |
+
+
|
+
+
+
+ |
+
+
+
+ |
+
+
| Section | +Action | +Description | +
|---|---|---|
| Roles | +View | +The roles people can take on projects and tasks, such as + manager, sales contact, tech support person, etc.. Currently, + can only be edited directly in the database. | +
| Default roles | +View | +The data model has a facility for default roles, although + it is not currently used at all. This shows what is in the + database for default roles. Currently unimplemented. | +
| Workgroups | +View | +There is a data model for workgroups, but it is not a part + of the UI. Shows what is in the database (currently, nothing!) | +
| Dependency types | +No UI | +When implemented, this page will allow you to view and + edit the descriptions given to various dependency types (such + as finish before start, etc..) Currently, the only dependency + used is finish before start, so it's not exposed in the UI | +
| Status types | +No UI | +Valid status codes, for example, 'Open' and 'Closed' | +
| Project categories | +Edit categories | +Projects can be categorized according to multiple 'trees' + of categories. What this means is you can have multiple ways + of categorizing your projects. This section sets up your + categories and allows you to link them to projects. Currently, + there is a bug in the categories package that prevents the + context bar at the top of the screen from returning you to the + project-manager pages. | +
| Logger integration | +Set up | +Logger is a package that lets you log time, expenses, and + other variables. Project manager requires you to + install and mount at least one instance of logger, because it + uses logger to log time and other variables against projects + and tasks. However, you can have varying levels of integration + with logger. This section sets up which logger instances you + want to be fully integrated with project-manager, so that new + project-manager projects appear in the logger instance. + @logger_warning;noquote@ + | +
| Set up | +You must choose a logger instance to be the primary + logger linked in with project-manager. This is closely linked + in with project-manager, so you can view reports of a project, etc. + + @logger_primary_warning;noquote@ + | +|
| Sync | +Once you have chosen logger instances to be integrated + with project-manager, you may have a lot of older + project-manager projects that are not synchronized with + logger. This page lets you synchronize older project-manager + projects with logger, so that they are all linked in correctly + with that instance. This does not add in logger projects to + project-manager (although someone can certainly add that + functionality if they wish). + | |
| Parameters | +Edit | +The parameters allow you to do things such as set up daily + reminder emails, change what fields are shown in the project + view and edit pages, and so on. Highly recommended if you're + setting up project-manager. | +
| Projects | +Update all | +This page allows you to update the deadlines of all the + projects in your installation. It will take a while. | +
- [join $logger_URLs "
- "]
- $logger_primary
-
+
- @logger_URLs:item@ +
-
+
| + | Task | +User | +Date | +@variable.name@ | +Description | ++ | |||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| + + | +|||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
+ |
+ |||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
+
+ |
+ @entries.project_name@ | +@entries.user_chunk;noquote@ | +@entries.time_stamp_pretty@ | ++ @entries.value@ + | ++ @entries.description@ + | +
+ 
+ |
+ |||||||||||||||||||||||||||||||||||||||||||||||||
| + |
+ |
+
+ |
+ + | + | |||||||||||||||||||||||||||||||||||||||||||||||||||
|
+
+ |
+ @entries.project_name@ | +@entries.user_chunk;noquote@ | +@entries.time_stamp_pretty@ | +
+ |
+ + @entries.description@ + | +
+
+ |
+ |||||||||||||||||||||||||||||||||||||||||||||||||
| + + | +|||||||||||||||||||||||||||||||||||||||||||||||||||||||
| + |
+ |
+
+ |
+ + | + | |||||||||||||||||||||||||||||||||||||||||||||||||||
| + + | +|||||||||||||||||||||||||||||||||||||||||||||||||||||||
| + | Projection | +@projection_value@ | ++ | + | |||||||||||||||||||||||||||||||||||||||||||||||||||
| + | + | + | + | @variable.unit@ | ++ | + | |||||||||||||||||||||||||||||||||||||||||||||||||
+
|
+