Index: openacs-4/packages/contacts/www/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.tcl,v
diff -u -N -r1.40 -r1.41
--- openacs-4/packages/contacts/www/message.tcl 27 Jun 2007 02:52:33 -0000 1.40
+++ openacs-4/packages/contacts/www/message.tcl 27 Jun 2007 23:55:36 -0000 1.41
@@ -48,13 +48,17 @@
set package_id [ad_conn package_id]
set recipients [list]
+set recipients_label [_ contacts.Recipients]
if { $search_id ne "" } {
set return_url [export_vars -base [apm_package_url_from_id $package_id] -url {search_id}]
if {[contact::group::mapped_p -group_id $search_id]} {
# Make sure the user has write permission on the group
permission::require_permission -object_id $search_id -privilege "write"
lappend recipients "[contact::group::name -group_id $search_id]"
+ if { [contact::group::notifications_p -group_id $search_id] } {
+ set recipients_label [_ contacts.Notify]
+ }
} else {
lappend recipients "[contact::search::title -search_id $search_id]"
}
@@ -215,7 +219,7 @@
folder_id:text(hidden)
object_id:text(hidden)
context_id:text(hidden)
- {to_name:text(inform),optional {label "[_ contacts.Recipients]"} {value $recipients}}
+ {to_name:text(inform),optional {label "$recipients_label"} {value $recipients}}
}
if { ![exists_and_not_null message_type] } {