Index: openacs-4/packages/invoices/www/offer-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/offer-ae.tcl,v
diff -u -r1.41 -r1.42
--- openacs-4/packages/invoices/www/offer-ae.tcl	1 Nov 2006 14:28:49 -0000	1.41
+++ openacs-4/packages/invoices/www/offer-ae.tcl	6 Nov 2006 15:38:44 -0000	1.42
@@ -57,19 +57,30 @@
     set page_title "[_ invoices.iv_offer_Add2]"
     set _offer_id 0
     set files ""
+    # Get the current credit information
     set list_id [iv::price_list::get_list_id -organization_id $organization_id]
     if {[empty_string_p $list_id]} {
 	set currency [parameter::get -parameter "DefaultCurrency" -default "EUR" -package_id $package_id]
 	set _credit_percent 0
     } else {
 	db_1row get_currency_and_credit_percent {}
     }
+    
 } else {
     db_1row get_organization_and_currencies {}
     set files {}
     db_foreach get_files {} {
 	lappend files [list "<a href=\"download/$file_name?item_id=$file_id\">$file_name</a> ($file_length bytes)" $file_id]
     }
+    
+    # Get the current credit information
+    set list_id [iv::price_list::get_list_id -organization_id $organization_id]
+    if {[empty_string_p $list_id]} {
+	set currency [parameter::get -parameter "DefaultCurrency" -default "EUR" -package_id $package_id]
+	set _credit_percent 0
+    } else {
+	db_1row get_currency_and_credit_percent {}
+    }
 
     set cur_vat_percent [format "%.1f" $cur_vat_percent]
     if {$mode == "edit"} {