Index: openacs-4/packages/contacts/lib/contact-complaint-list-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-complaint-list-portlet.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/lib/contact-complaint-list-portlet.tcl	12 Oct 2005 22:39:08 -0000	1.1
+++ openacs-4/packages/contacts/lib/contact-complaint-list-portlet.tcl	16 Oct 2005 12:43:54 -0000	1.2
@@ -1 +1,8 @@
+set optional_param_list [list customer_id supplier_id]
+foreach optional_param $optional_param_list {
+    if {![info exists $optional_param]} {
+	set $optional_param {}
+    }
+}
+
 set portlet_layout [parameter::get -parameter "DefaultPortletLayout"]
\ No newline at end of file