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.4 -r1.1.2.5
--- openacs-4/packages/assessment/lib/comments-chunk.tcl	3 May 2006 06:55:01 -0000	1.1.2.4
+++ openacs-4/packages/assessment/lib/comments-chunk.tcl	23 May 2006 18:31:36 -0000	1.1.2.5
@@ -29,23 +29,7 @@
 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,
-           r.content,
-           r.title,
-           r.mime_type,
-           acs_object__name(o.creation_user) as author,
-           to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date_ansi
-    from general_comments g,
-         cr_revisions r,
-         cr_items ci,
-         acs_objects o
-    where g.object_id = :object_id
-          and r.revision_id = ci.live_revision
-          and ci.item_id = g.comment_id 
-          and o.object_id = g.comment_id
-    order by o.creation_date
-} {
+db_multirow -extend { html_content edit_url } comments comments {} {
     set html_content [ad_html_text_convert -from $mime_type -- $content]
     set edit_url [export_vars -base "${general_comments_url}comment-edit" {comment_id return_url}]
 }