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.17 -r1.18
--- openacs-4/packages/invoices/www/invoice-ae.tcl	9 Dec 2005 18:26:33 -0000	1.17
+++ openacs-4/packages/invoices/www/invoice-ae.tcl	18 Dec 2005 15:34:34 -0000	1.18
@@ -50,7 +50,7 @@
 	    set projects_error_p 1
 	} else {
 	    set organizations [db_list get_organizations ""]
-	    if { ![llength $organizations] == 1} {
+	    if { [llength $organizations] != 1} {
 		# More than one organization form the projects
 		set more_error_p 1
 	    } else {
@@ -140,8 +140,10 @@
     set recipient_options [db_list_of_lists credit_recipients {}]
 } else {
     # normal invoice: get recipients from projects
-    # set recipient_options [db_list_of_lists recipients {}]
-    set recipient_options [wieners::get_recipients -customer_id $organization_id]
+    # We only want to offer invoice recipients that have actually been assigned in the project
+    # The other query would show all of them.
+    set recipient_options [db_list_of_lists recipients {}]
+    # set recipient_options [wieners::get_recipients -customer_id $organization_id]
 }