Index: openacs-4/packages/invoices/www/offer-send.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/offer-send.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/invoices/www/offer-send.tcl	11 Oct 2005 15:23:29 -0000	1.6
+++ openacs-4/packages/invoices/www/offer-send.tcl	14 Oct 2005 06:25:03 -0000	1.7
@@ -55,19 +55,8 @@
     set return_url [export_vars -base offer-list {organization_id}]
 }
 
-set party_ids [contact::util::get_employees -organization_id $organization_id]
-set parties_new [list]
-foreach party_id $party_ids {
-    
-    # Check if the party has a valid e-mail address
-    if {![empty_string_p [cc_email_from_party $party_id]]} {
-	lappend parties_new $party_id
-    }
+if {[empty_string_p [cc_email_from_party $contact_id]]} {
+    ad_return_error "No Recipient" "The recipient does not have a valid e-mail address. Please go back and make sure that you provide an e-mail address first."
 }
 
-if {[empty_string_p $parties_new]} {
-    ad_return_error "No Recipient" "None of the recipients has a valid e-mail address. Please go back and make sure that you provide an e-mail address first."
-} else {
-    set party_ids $parties_new
-}
 ad_return_template