Index: openacs-4/packages/assessment/lib/comments-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/comments-chunk.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/assessment/lib/comments-chunk.tcl	16 Aug 2005 14:14:54 -0000	1.1.2.1
+++ openacs-4/packages/assessment/lib/comments-chunk.tcl	21 Feb 2006 18:09:33 -0000	1.1.2.2
@@ -21,7 +21,9 @@
 set return_url [ad_return_url]
 
 set general_comments_url [apm_package_url_from_key "general-comments"]
-set comment_add_url [export_vars -base "${general_comments_url}comment-add" {object_id return_url}]
+if {[permission::permission_p -object_id $object_id -privilege "general_comments_create"]} {
+    set comment_add_url [export_vars -base "${general_comments_url}comment-add" {object_id return_url}]
+}
 
 db_multirow -extend { html_content edit_url } comments comments {
     select g.comment_id,