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 "$customer_name"}
+ {value "$customer_name"}
}
}