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.9 -r1.10
--- openacs-4/packages/contacts/lib/contact-complaint-list.tcl	5 Oct 2005 22:16:16 -0000	1.9
+++ openacs-4/packages/contacts/lib/contact-complaint-list.tcl	16 Oct 2005 12:43:54 -0000	1.10
@@ -54,7 +54,9 @@
 		  turnover [list label [_ contacts.Turnover]]\
 		  percent [list label [_ contacts.Percent]]\
 		  state [list label "[_ contacts.Status]:"]\
-		  complaint_object_id [list label [_ contacts.Object_id]]\
+		  complaint_object_id [list label [_ contacts.Object_id] \
+					  display_template \
+					  "<a href=\"@complaint.object_url@\">@complaint.complaint_object_id@</a>"]\
 		  description [list label [_ contacts.Description]]\
 		 ]
 
@@ -102,9 +104,10 @@
     }
 
 
-db_multirow -extend { customer customer_url supplier supplier_url } complaint get_complaints { } {
+db_multirow -extend { customer customer_url supplier supplier_url object_url} complaint get_complaints { } {
     set customer "[contact::name -party_id $customer_id]"
     set supplier "[contact::name -party_id $supplier_id]"
     set customer_url "/contacts/$customer_id"
     set supplier_url "/contacts/$supplier_id"
+    set object_url "/o/$complaint_object_id"
 }