Index: openacs-4/contrib/packages/project-manager/project-manager.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/Attic/project-manager.info,v diff -u -r1.16.2.12 -r1.16.2.13 --- openacs-4/contrib/packages/project-manager/project-manager.info 31 Aug 2004 17:11:20 -0000 1.16.2.12 +++ openacs-4/contrib/packages/project-manager/project-manager.info 15 Sep 2004 23:05:51 -0000 1.16.2.13 @@ -7,14 +7,14 @@ f f - + Jade Rubick Project management tool for OpenACS - 2004-08-31 + 2004-09-13 Integrated Bakery Resources Track tasks, estimates and actual progress for a project. See the <a href="http://openacs.org/projects/dotwrk/project_management/">project page</a> for more information. - + @@ -25,8 +25,8 @@ - + \#$task$titles_arr($task)$roles($task-$party)$ls_arr($task)$lf_arr($task)$slack_arr($task)" - lappend $which_pile "$trimmed_task $trimmed_title" - lappend $which_pile "[string repeat " " $TASK_ID_LENGTH] LS: $ls_arr($task) LF: $lf_arr($task) Slack: $slack_arr($task)" - lappend $which_pile "" } } - set description [list] + set overdue_title "

Overdue Tasks

" - set overdue_title "OVERDUE TASKS" - set overdue_title [pm::util::string_truncate_and_pad -length $TASK_LENGTH -string $overdue_title] - set overdue_description "consult with people affected, and let them know deadlines are affected" - set pressing_title "PRESSING TASKS" - set pressing_title [pm::util::string_truncate_and_pad -length $TASK_LENGTH -string $pressing_title] + 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_title [pm::util::string_truncate_and_pad -length $TASK_LENGTH -string $longterm_title] + set longterm_title "

Long Term Tasks

" + set longterm_description "look over these to plan ahead" # okay, let's now set up the email body - lappend description "This is a daily reminder of tasks that are assigned to you" - lappend description "You current have $task_count($party) tasks assigned to you" + set description " +

This is a daily reminder of tasks that are assigned to you +You currently have $task_count($party) tasks assigned to you

- lappend description "" - lappend description "\# $overdue_title" +$overdue_title - set length [string length $overdue_description] - lappend description [string repeat "_" $length] +
- lappend description $overdue_description +$overdue_description - lappend description "" + + + + + + + + + +" + foreach overdue_item $overdue { - lappend description $overdue_item + append description $overdue_item } - lappend description "" - lappend description "\# $pressing_title" + append description " +
Task \#SubjectRoleLatest startLatest finishSlack
- set length [string length $pressing_description] - lappend description [string repeat "_" $length] +$pressing_title - lappend description $pressing_description +
+$pressing_description - lappend description "" + + + + + + + + + +" + foreach pressing_item $pressing { - lappend description $pressing_item + append description $pressing_item } - lappend description "" - lappend description "\# $longterm_title" + append description " +
Task \#SubjectRoleLatest startLatest finishSlack
- set length [string length $longterm_description] - lappend description [string repeat "_" $length] +$longterm_title - lappend description $longterm_description +$longterm_description - lappend description "" + + + + + + + + + +" + foreach longterm_item $longterm { - lappend description $longterm_item + append description $longterm_item } + append description "
Task \#SubjectRoleLatest startLatest finishSlack
" + pm::util::email \ -to_addr $address \ -from_addr $address \ -subject $subject \ - -body [join $description "\n"] \ - -mime_type "text/plain" - + -body $description \ + -mime_type "text/html" } - # consider also sending out emails to people who have assigned - # tickets to nobody + # consider also sending out emails to people who have created + # tickets that are not assigned to anyone } Index: openacs-4/contrib/packages/project-manager/www/task-calendar.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-calendar.adp,v diff -u -r1.1.2.3 -r1.1.2.4 --- openacs-4/contrib/packages/project-manager/www/task-calendar.adp 30 Aug 2004 18:19:14 -0000 1.1.2.3 +++ openacs-4/contrib/packages/project-manager/www/task-calendar.adp 15 Sep 2004 23:05:52 -0000 1.1.2.4 @@ -27,3 +27,22 @@
@roles.role;noquote@
+ +

Users to view

+ +
+ + + + + @users.name@
+ + + + @users.name@
+ + + + + +
Index: openacs-4/contrib/packages/project-manager/www/task-calendar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-calendar.tcl,v diff -u -r1.1.2.4 -r1.1.2.5 --- openacs-4/contrib/packages/project-manager/www/task-calendar.tcl 30 Aug 2004 18:19:14 -0000 1.1.2.4 +++ openacs-4/contrib/packages/project-manager/www/task-calendar.tcl 15 Sep 2004 23:05:52 -0000 1.1.2.5 @@ -91,3 +91,37 @@ } +# ------------------------------------- +# 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 + } +}