Index: openacs-4/packages/contacts/lib/history.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/history.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/lib/history.adp	12 Mar 2006 09:36:35 -0000	1.5
+++ openacs-4/packages/contacts/lib/history.adp	17 May 2006 07:41:02 -0000	1.6
@@ -1,4 +1,4 @@
-<if @form@ eq top>
+<if @form@ eq top and @hide_form_p@ false>
 <formtemplate id="comment_add" style="../../../contacts/resources/forms/inline"></formtemplate>
 </if>
 
@@ -19,7 +19,7 @@
 </multiple>
   </dl>
 </if>
-<if @form@ eq bottom>
+<if @form@ eq bottom and @hide_form_p@ false>
 <formtemplate id="comment_add" style="../../../contacts/resources/forms/inline"></formtemplate>
 </if>
 
Index: openacs-4/packages/contacts/lib/history.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/history.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/lib/history.tcl	12 Mar 2006 09:36:35 -0000	1.5
+++ openacs-4/packages/contacts/lib/history.tcl	17 May 2006 07:41:02 -0000	1.6
@@ -43,6 +43,11 @@
     error "[_ contacts.lt_Invalid_input_you_spe]"
 }
 
+if { ![exists_and_not_null hide_form_p] } {
+    set hide_form_p 0
+}
+
+if { [string is false $hide_form_p] } {
 ad_form -name comment_add \
    -action "[ad_conn package_url]comment-add" \
     -form "
@@ -53,7 +58,7 @@
     " -on_request {
     } -after_submit {
     }
-
+}
 set user_id [ad_conn user_id]