Index: openacs-4/packages/invoices/www/offer-accept-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/offer-accept-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/invoices/www/offer-accept-2.tcl	11 Oct 2005 15:23:29 -0000	1.4
+++ openacs-4/packages/invoices/www/offer-accept-2.tcl	14 Oct 2005 06:25:03 -0000	1.5
@@ -36,21 +36,10 @@
     }
 }
 
-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
-}
-
 set cancel_url [export_vars -base offer-list {organization_id}]
 set invoice_url [site_node::get_package_url -package_key invoices]
 set return_url [export_vars -base "${invoice_url}offer-ae" {offer_id {mode display}}]