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] } {