Index: openacs-4/packages/acs-tcl/lib/complain.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/lib/complain.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/lib/complain.adp	22 Dec 2003 21:53:20 -0000	1.1
@@ -0,0 +1,23 @@
+<master>
+  <property name="title">Problem with your input</property>
+
+<p>
+  We had
+  <if @complaints:rowcount@ gt 1>some problems</if>
+  <else>a problem</else>
+  with your input:
+</p>
+
+<ul>
+  <multiple name="complaints">
+    <li>@complaints.text@</li>
+  </multiple>
+</ul>
+
+<p>
+  Please back up using your browser, correct the above problem<if @complaints:rowcount@ gt 1>s</if>, and resubmit your entry.
+</p>
+
+<p>
+  Thank you.
+</p>
Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	12 Nov 2003 10:53:05 -0000	1.17
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	22 Dec 2003 21:53:20 -0000	1.18
@@ -1118,7 +1118,11 @@
 	    upvar 1 $return_errors error_list
 	    set error_list [ad_complaints_get_list]
 	} else {
-	    ad_return_complaint [ad_complaints_count] "<li>[join [ad_complaints_get_list] "</li>\n<li>"]</li>\n"
+            template::multirow create complaints text
+            foreach elm [ad_complaints_get_list] {
+                template::multirow append complaints $elm
+            }
+            ns_return 200 text/html [ad_parse_template -params [list complaints] "/packages/acs-tcl/lib/complain"]
 	    ad_script_abort
 	}
     }