Index: openacs-4/contrib/packages/project-manager/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/one.tcl,v
diff -u -r1.26.2.10 -r1.26.2.11
--- openacs-4/contrib/packages/project-manager/www/one.tcl	11 Mar 2004 09:25:17 -0000	1.26.2.10
+++ openacs-4/contrib/packages/project-manager/www/one.tcl	12 Mar 2004 00:20:24 -0000	1.26.2.11
@@ -49,6 +49,8 @@
     task_term:onevalue
     then_ansi:onevalue
     edit_url:onevalue
+    comments:onevalue
+    comments_link:onevalue
 } -validate {
     project_item_id_exists {
         if {![exists_and_not_null project_item_id]} {
@@ -72,7 +74,14 @@
 set package_id [ad_conn package_id]
 set user_id    [ad_maybe_redirect_for_registration]
 
+# ----------------
+# general comments
+# ----------------
+set comments [general_comments_get_comments -print_content_p 1 -print_attachments_p 1 $project_item_id "[ad_conn url]?project_item_id=$project_item_id"]
 
+set comments_link [general_comments_create_link -object_name cr_items -link_text "Add a comment" -context_id $package_id $project_item_id "[ad_conn url]?project_item_id=$project_item_id"]
+
+
 # terminology
 set project_term       [parameter::get -parameter "ProjectName" -default "Project"]
 set project_term_lower [parameter::get -parameter "projectname" -default "project"]
@@ -185,9 +194,7 @@
 
         }
     } \
-    -actions {
-        "Use process" $process_link "Use a process"
-    } \
+    -actions [list "Use process" $process_link "Use a process"] \
     -bulk_actions {
         "Edit" "task-add-edit" "Edit tasks"
     } \
@@ -378,11 +385,6 @@
 
 db_1row custom_query { } -column_array custom 
 
-if {[exists_and_not_null item_code_issued]} {
-    set custom(item_code_issued) [lc_time_fmt $custom(item_code_issued) "%x"]
-} else {
-    set custom(item_code_issued) ""
-}
 
 # end of customizations