Index: openacs.org-dev/packages/general-comments/tcl/general-comments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/general-comments/tcl/general-comments-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/general-comments/tcl/general-comments-procs.tcl	9 Jul 2002 17:35:09 -0000	1.1
+++ openacs.org-dev/packages/general-comments/tcl/general-comments-procs.tcl	22 Nov 2002 09:55:09 -0000	1.2
@@ -22,6 +22,7 @@
     {return_url {}}
 } {
     Generates a line item list of comments for the object_id.
+
     @param print_content_p Pass in 1 to print out content of comments.
     @param print_attachments_p Pass in 1 to print out attachments of comments, 
                                only works if print_content_p is 1. 
@@ -42,7 +43,7 @@
     } else {
         set content_select [db_map content_select] ;# ", r.content"
     }
-    ns_log notice "content_select: $content_select"
+    ns_log debug "general comments content_select: $content_select"
     
     set html ""
     db_foreach get_comments "
@@ -139,7 +140,7 @@
                 append html "<br><br>"
             }
         }
-        append html "-- <a href=\"/shared/community-member?user_id=$creation_user\">$author</a> on $pretty_date2 (<a href=\"${package_url}view-comment?[export_url_vars comment_id return_url]\">view details</a>)\n"
+        append html "<p>-- <a href=\"/shared/community-member?user_id=$creation_user\">$author</a> on $pretty_date2 (<a href=\"${package_url}view-comment?[export_url_vars comment_id return_url]\">view details</a>)</p>\n"
     } else {
         append html "<li><a href=\"${package_url}view-comment?[export_url_vars comment_id return_url]\">$title</a> by <a href=\"/shared/community-member?user_id=$creation_user\">$author</a> on $pretty_date<br>\n"
     }
@@ -157,6 +158,7 @@
     {return_url {}} 
 } {
     Generates an html link to add a comment to an object.
+
     @param object_id   The object to comment on.
     @param return_url  A url for the user to return to after viewing a comment.
     @param object_name The name of the object.
@@ -202,8 +204,11 @@
 
 ad_proc -deprecated get_comments {object_id return_url} {
     Generates a line item list of comments for the object_id.
+
     @param object_id The object_id to retrieve the comments for.
     @param return_url A url for the user to return to after viewing a comment.
+    
+    @see general_comments_get_comments
 } {
 
     # get the package url
@@ -245,6 +250,8 @@
     @param return_url  A url for the user to return to after viewing a comment.
     @param link_text   The text to display for the link.
     @param category    A category to associate comment to.
+
+    @see general_comments_create_link
 } {
     # get the package url
     set package_url [db_string get_package_url_deprecated "