Index: openacs-4/packages/contacts/lib/comments.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/comments.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/lib/comments.tcl	7 Jun 2005 07:45:39 -0000	1.5
+++ openacs-4/packages/contacts/lib/comments.tcl	7 Jun 2005 19:18:34 -0000	1.6
@@ -70,7 +70,7 @@
 
 set result_number 1
 
-db_multirow -extend { comment_html comment_number } comments get_comments "
+db_multirow -extend { comment_html comment_number contact_url } comments get_comments "
          select g.comment_id,
                 r.title,
                 r.mime_type,
@@ -99,6 +99,7 @@
         set comment_number $result_number
     }
     incr result_number
+    set contact_url [contact::url -party_id $creation_user]
 }
 
 ad_form -name comment_add \