Index: openacs-4/packages/acs-mail-lite/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/lib/Attic/email.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-mail-lite/lib/email.tcl 4 Aug 2005 17:08:57 -0000 1.5
+++ openacs-4/packages/acs-mail-lite/lib/email.tcl 12 Sep 2005 06:57:53 -0000 1.6
@@ -24,13 +24,15 @@
}
-# Some how when the form is submited the party_ids values became
+# Somehow when the form is submited the party_ids values became
# only one element of a list, this avoid that problem
set recipients [list]
foreach party_id $party_ids {
- lappend recipients [list "[contact::name -party_id $party_id]
+ if {![empty_string_p $party_id]} {
+ lappend recipients [list "[contact::name -party_id $party_id]
([cc_email_from_party $party_id])" $party_id]
+ }
}
set form_elements {