Index: openacs-4/packages/contacts/www/message.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.adp,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/contacts/www/message.adp 1 Jul 2005 00:37:06 -0000 1.9
+++ openacs-4/packages/contacts/www/message.adp 1 Jul 2005 22:45:23 -0000 1.10
@@ -8,7 +8,10 @@
-@party_ids@
+@party_id@
+
+@error_message;noquote@
+
comment_add.comment
Index: openacs-4/packages/contacts/www/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/contacts/www/message.tcl 1 Jul 2005 00:37:06 -0000 1.10
+++ openacs-4/packages/contacts/www/message.tcl 1 Jul 2005 22:45:23 -0000 1.11
@@ -39,7 +39,6 @@
}
set party_count [llength $party_ids]
-
set title "[_ contacts.Messages]"
set user_id [ad_conn user_id]
set context [list $title]
@@ -97,16 +96,19 @@
set invalid_recipients [join $invalid_recipients ", "]
if { [llength $invalid_recipients] > 0 } {
switch $message_type {
- letter {
- util_user_message -html -message [_ contacts.lt_You_cannot_send_a_letter_to_invalid_recipients]
- }
- email {
- util_user_message -html -message [_ contacts.lt_You_cannot_send_an_email_to_invalid_recipients]
- }
- default {
- util_user_message -html -message [_ contacts.lt_You_cannot_send_a_message_to_invalid_recipients]
- }
+ letter {
+ set error_message [_ contacts.lt_You_cannot_send_a_letter_to_invalid_recipients]
+ }
+ email {
+ set error_message [_ contacts.lt_You_cannot_send_an_email_to_invalid_recipients]
+ }
+ default {
+ set error_message [_ contacts.lt_You_cannot_send_a_message_to_invalid_recipients]
+ }
}
+ if { $party_ids != "" } {
+ util_user_message -html -message $error_message
+ }
}
if {[exists_and_not_null object_id]} {