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.2 -r1.1.2.3
--- openacs-4/packages/assessment/lib/comments-chunk.tcl	21 Feb 2006 18:09:33 -0000	1.1.2.2
+++ openacs-4/packages/assessment/lib/comments-chunk.tcl	25 Feb 2006 15:46:55 -0000	1.1.2.3
@@ -21,9 +21,8 @@
 set return_url [ad_return_url]
 
 set general_comments_url [apm_package_url_from_key "general-comments"]
-if {[permission::permission_p -object_id $object_id -privilege "general_comments_create"]} {
+if {[set has_permission_p [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,
@@ -46,3 +45,4 @@
     set edit_url [export_vars -base "${general_comments_url}comment-edit" {comment_id return_url}]
 }
 
+}
\ No newline at end of file