Index: openacs-4/packages/invoices/www/price-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/price-list.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/invoices/www/price-list.tcl	6 Sep 2005 23:01:24 -0000	1.2
+++ openacs-4/packages/invoices/www/price-list.tcl	12 Oct 2005 13:25:34 -0000	1.3
@@ -12,6 +12,8 @@
 }
 
 set package_id [ad_conn package_id]
+set contact_package_id [apm_package_id_from_key contacts]
+set contact_master [parameter::get -parameter ContactMaster -package_id $contact_package_id]
 
 if {[empty_string_p $list_id]} {
     set list_id [iv::price_list::get_list_id -organization_id $organization_id -package_id $package_id]