Index: openacs-4/packages/invoices/www/invoice-credit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-credit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/invoices/www/invoice-credit.tcl	11 Oct 2005 15:23:29 -0000	1.2
+++ openacs-4/packages/invoices/www/invoice-credit.tcl	26 Oct 2005 12:00:38 -0000	1.3
@@ -58,14 +58,15 @@
     set invoice_nr [db_nextval iv_invoice_seq]
     set total_amount ""
     set vat_percent "16.0"
-    # set contacts_package_id [lindex [application_link::get_linked -from_package_id $package_id -to_package_key contacts] 0]
-    # array set org_data [contacts::get_values \
-#			    -group_name "#acs-translation.Customers#" \
-#			    -object_type "organization" \
-#			    -party_id $organization_id \
-#			    -contacts_package_id $contacts_package_id]
-    # set vat_percent [format "%.1f" $org_data(vat_percent)]
-    set vat_percent [format "%.1f" $vat_percent]
+    set contacts_package_id [lindex [application_link::get_linked -from_package_id $package_id -to_package_key contacts] 0]
+    array set org_data [contacts::get_values \
+			    -group_name "Customers" \
+			    -object_type "organization" \
+			    -party_id $organization_id \
+			    -contacts_package_id $contacts_package_id]
+    if {[info exists org_data(vat_percent)]} {
+	set vat_percent [format "%.1f" $org_data(vat_percent)]
+    }
 } -on_submit {
     set category_ids [category::ad_form::get_categories -container_object_id $container_objects(invoice_id)]
 } -new_data {