Index: openacs-4/packages/contacts/www/complaint-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/complaint-ae.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/contacts/www/complaint-ae.tcl	11 Aug 2005 14:14:58 -0000	1.3
+++ openacs-4/packages/contacts/www/complaint-ae.tcl	14 Sep 2005 16:34:16 -0000	1.4
@@ -20,7 +20,7 @@
 
 if {![empty_string_p $project_id]} {
     if {[empty_string_p $customer_id]} {
-        set customer_id [db_string get_customer_id "select customer_id from pm_projectsx where item_id = :project_id"]
+        set customer_id [db_string get_customer_id "select p.customer_id from pm_projectsx p, cr_items i where p.item_id = :project_id and i.live_revision = p.revision_id"]
     }
     set object_id $project_id
 }