Index: openacs-4/packages/general-comments/tcl/general-comments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/tcl/general-comments-procs.tcl,v
diff -u -r1.18.2.1 -r1.18.2.2
--- openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	27 Jun 2005 15:28:06 -0000	1.18.2.1
+++ openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	23 Oct 2005 12:57:03 -0000	1.18.2.2
@@ -65,6 +65,7 @@
 ad_proc -public general_comments_get_comments {
     { -print_content_p 0 }
     { -print_attachments_p 0 }
+    { -print_user_info_p 1}
     { -context_id "" }
     { -my_comments_only_p 0 }
     object_id 
@@ -137,7 +138,7 @@
         # call on helper proc to print out comment
         append html [general_comments_print_comment $comment_id $title $mime_type \
                 $creation_user $author $pretty_date $pretty_date2 $content \
-                $print_content_p $print_attachments_p $package_url $return_url]
+                $print_content_p $print_attachments_p $package_url $return_url $print_user_info_p]
     }
     return $html
 }
@@ -155,6 +156,7 @@
     print_attachments_p
     package_url
     return_url
+    print_user_info_p
 } {
     Helper proc to format and print out a single comment.
     @param comment_id The id of the comment.
@@ -169,6 +171,7 @@
     @param print_attachments_p Pass in 1 to print out attachments of comments.
     @param package_url The url to the mounted general-comments package instance.
     @param return_url A url for the user to return to after viewing a comment. 
+    @param print_user_info_p Pass 1 in to print out user name and time of entry.
 } {
 
     # -- create query statements to retrieve attachments
@@ -212,7 +215,12 @@
         }
         append html "<p>-- <a href=\"[ad_quotehtml /shared/community-member?user_id=$creation_user]\">$author</a> [_ general-comments.on] $pretty_date2 (<a href=\"[ad_quotehtml ${package_url}view-comment?[export_url_vars comment_id return_url]]\">[_ general-comments.view_details]</a>)</p>\n"
     } else {
-        append html "<li><a href=\"[ad_quotehtml ${package_url}view-comment?[export_url_vars comment_id return_url]]\">$title</a> [_ general-comments.by] <a href=\"[ad_quotehtml /shared/community-member?user_id=$creation_user]\">$author</a> [_ general-comments.on] $pretty_date<br>\n"
+        append html "<li><a href=\"[ad_quotehtml ${package_url}view-comment?[export_url_vars comment_id return_url]]\">$title</a>"
+	if {$print_user_info_p} {
+	    append html " [_ general-comments.by] <a href=\"[ad_quotehtml /shared/community-member?user_id=$creation_user]\">$author</a> [_ general-comments.on] $pretty_date<br>\n"
+	} else {
+	    append html "<br>\n"
+	}
     }
 
     return $html