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.11 -r1.12 --- openacs-4/contrib/packages/project-manager/project-manager.info 8 Oct 2003 17:51:33 -0000 1.11 +++ openacs-4/contrib/packages/project-manager/project-manager.info 8 Oct 2003 21:37:09 -0000 1.12 @@ -15,6 +15,7 @@ + Index: openacs-4/contrib/packages/project-manager/www/task-one.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-one.adp,v diff -u -r1.16 -r1.17 --- openacs-4/contrib/packages/project-manager/www/task-one.adp 3 Oct 2003 22:21:45 -0000 1.16 +++ openacs-4/contrib/packages/project-manager/www/task-one.adp 8 Oct 2003 21:37:09 -0000 1.17 @@ -103,3 +103,6 @@ +@comments@ +

+@comments_link@ Index: openacs-4/contrib/packages/project-manager/www/task-one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-one.tcl,v diff -u -r1.19 -r1.20 --- openacs-4/contrib/packages/project-manager/www/task-one.tcl 3 Oct 2003 23:52:17 -0000 1.19 +++ openacs-4/contrib/packages/project-manager/www/task-one.tcl 8 Oct 2003 21:37:09 -0000 1.20 @@ -41,6 +41,8 @@ task_term_lower:onevalue assignee_term:onevalue watcher_term:onevalue + comments:onevalue + comments_link:onevalue } -validate { task_id_exists { if {![info exists task_id]} { @@ -73,6 +75,12 @@ set package_id [ad_conn package_id] set user_id [ad_maybe_redirect_for_registration] +set comments [general_comments_get_comments -print_content_p 1 -print_attachments_p 1 $task_id "[ad_conn url]?task_id=$task_id"] + +set comments_link [general_comments_create_link -object_name pm_task -link_text "Add a comment" -context_id $package_id $task_id "[ad_conn url]?task_id=$task_id"] + + + # permissions permission::require_permission -party_id $user_id -object_id $package_id -privilege read