Index: openacs-4/packages/invoices/www/invoice-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-ae.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/invoices/www/invoice-ae.tcl	29 Jan 2006 15:43:16 -0000	1.24
+++ openacs-4/packages/invoices/www/invoice-ae.tcl	30 Jan 2006 12:50:39 -0000	1.25
@@ -147,6 +147,8 @@
     # The other query would show all of them.
     set contact_options [db_list_of_lists contacts {}]
     set recipient_options [db_list_of_lists recipients {}]
+    set rec_organization_id [contact::util::get_employee_organization -employee_id [lindex [lindex $recipient_options 0] 1]]
+    lappend recipient_options [list [organizations::name -organization_id $rec_organization_id] $rec_organization_id]
 }