Index: openacs-4/packages/invoices/www/invoice-cancellation.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-cancellation.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/invoices/www/invoice-cancellation.tcl	4 Jan 2006 08:06:48 -0000	1.4
+++ openacs-4/packages/invoices/www/invoice-cancellation.tcl	15 Mar 2006 17:05:06 -0000	1.5
@@ -30,9 +30,14 @@
 set language [lang::conn::language]
 set currency_options [db_list_of_lists currencies {}]
 set contact_options [db_list_of_lists cancellation_contacts {}]
-set recipient_options [db_list_of_lists cancellation_recipients {}]
 
+set recipient_options {}
+db_foreach cancellation_recipients {} {
+    lappend recipient_options [list [contact::name -party_id $rec_id -reverse_order] $rec_id]
+}
+set recipient_options [lsort -dictionary $recipient_options]
 
+
 ad_form -name iv_invoice_cancel_form -action invoice-cancellation -export {organization_id parent_id} -form {
     {invoice_id:key}
     {organization_name:text(inform) {label "[_ invoices.iv_invoice_organization]"} {value $organization_name} {help_text "[_ invoices.iv_invoice_organization_help]"}}