Index: openacs-4/packages/contacts/lib/contact-complaint-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-complaint-form.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/contacts/lib/contact-complaint-form.tcl	20 Oct 2005 16:05:33 -0000	1.14
+++ openacs-4/packages/contacts/lib/contact-complaint-form.tcl	20 Feb 2006 22:01:02 -0000	1.15
@@ -31,14 +31,15 @@
     }
 }
 
+set package_url [ad_conn package_url]
 set customer_name [contact::name -party_id $customer_id]
 ad_form -extend -name complaint_form -form {
     {customer_id:text(hidden)
 	{value $customer_id}
     }
     {customer:text(inform),optional
 	{label "[_ contacts.Customer]"}
-	{value "<a href=\"/contacts/${customer_id}\">$customer_name</a>"}
+	{value "<a href=\"${package_url}${customer_id}\">$customer_name</a>"}
     }
 }