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.4 -r1.5
--- openacs-4/packages/invoices/www/invoice-credit.tcl	3 Jan 2006 12:55:57 -0000	1.4
+++ openacs-4/packages/invoices/www/invoice-credit.tcl	4 Jan 2006 08:06:48 -0000	1.5
@@ -30,13 +30,8 @@
 set currency_options [db_list_of_lists currencies {}]
 
 # Get the list of valid recipients. These are employees of the organization
-set recipient_list [contact::util::get_employees -organization_id $organization_id]
-set recipient_options [list]
-foreach recipient_id $recipient_list {
-    lappend recipient_options [list [person::name -person_id $recipient_id] $recipient_id]
-}
+set recipient_options [contact::util::get_employees_list_of_lists -organization_id $organization_id]
 
-
 ad_form -name iv_invoice_credit_form -action invoice-credit -export {organization_id} -form {
     {invoice_id:key}
     {organization_name:text(inform) {label "[_ invoices.iv_invoice_organization]"} {value $organization_name} {help_text "[_ invoices.iv_invoice_organization_help]"}}
@@ -85,9 +80,11 @@
 				    -title $title \
 				    -description $description  \
 				    -invoice_nr $invoice_nr \
+				    -contact_id $recipient_id \
 				    -organization_id $organization_id \
 				    -recipient_id $recipient_id \
 				    -total_amount $total_amount \
+				    -amount_sum $total_amount \
 				    -currency $currency \
 				    -due_date $due_date \
 				    -vat_percent $vat_percent \