Index: openacs-4/packages/assessment/lib/feedback.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/feedback.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/lib/feedback.tcl	13 Jun 2006 02:03:56 -0000	1.3
+++ openacs-4/packages/assessment/lib/feedback.tcl	27 Jun 2006 19:11:40 -0000	1.4
@@ -20,11 +20,14 @@
     next_asm:optional
     {item_id_list:multiple,optional {}}
     {next_url ""}
+    no_complaint:optional
 } -properties {
 } -validate {
 } -errors {
 }
-
+#if {![info exists no_complain]} {
+#    ad_return_complaint 1 "feedback! [ns_conn query]"
+#}
 set subject_id [ad_conn user_id]
 as::assessment::data -assessment_id $assessment_id
 permission::require_permission -object_id $assessment_id -privilege read