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 -N -r1.37 -r1.38
--- openacs-4/contrib/packages/project-manager/www/one.tcl	11 Jun 2004 20:58:19 -0000	1.37
+++ openacs-4/contrib/packages/project-manager/www/one.tcl	30 Jun 2004 21:29:30 -0000	1.38
@@ -100,14 +100,7 @@
 set package_url [ad_conn package_url]
 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 "Project" -link_text "Add a comment" -context_id $package_id $project_item_id "[ad_conn url]?project_item_id=$project_item_id"]
-
-
 # terminology and other parameters
 set project_term       [parameter::get -parameter "ProjectName" -default "Project"]
 set project_term_lower [parameter::get -parameter "projectname" -default "project"]
@@ -147,6 +140,14 @@
 set project(earliest_finish_date) [lc_time_fmt $project(earliest_finish_date) "%x"]
 set project(latest_finish_date) [lc_time_fmt $project(latest_finish_date) "%x"]
 
+# ----------------
+# 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 "<a href=\"[export_vars -base "comments/add" {{ object_id $project_item_id} {title "$project(project_name)"} {return_url [ad_return_url]} {type project} }]\">Add comment</a>"
+
+
 # we can also get the link to the logger instance.
 set logger_url [pm::util::logger_url]
 set logger_project_url "$logger_url?project_id=$project(logger_project)"