Index: openacs-4/packages/contacts/lib/contact-complaint-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-complaint-list.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/lib/contact-complaint-list.tcl	8 Aug 2005 21:50:57 -0000	1.1
+++ openacs-4/packages/contacts/lib/contact-complaint-list.tcl	9 Aug 2005 12:44:19 -0000	1.2
@@ -7,9 +7,12 @@
 } {
     customer_id:optional
     supplier_id:optional
+    {filter_p 0} 
 }
 
-
+if {![exists_and_not_null customer_id]} {
+    unset customer_id
+}
 set elements [list \
 		  title [list label "Title"]\
 		  customer [list label "Customer"]\
@@ -57,9 +60,7 @@
 
 
 db_multirow -extend { customer supplier title description } complaint get_complaints { } {
-    acs_user::get -user_id $customer_id -array customer_info
-    acs_user::get -user_id $supplier_id -array supplier_info
-    set customer "$customer_info(first_names) $customer_info(last_name)"
-    set supplier "$supplier_info(first_names) $supplier_info(last_name)"
+    set customer "[contact::name -party_id $customer_id]"
+    set supplier "[contact::name -party_id $supplier_id]"
     db_1row get_revision_info { }
 }