Index: openacs-4/packages/contacts/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/index.tcl,v diff -u -N -r1.31 -r1.32 --- openacs-4/packages/contacts/www/index.tcl 27 Jun 2007 02:51:40 -0000 1.31 +++ openacs-4/packages/contacts/www/index.tcl 27 Jun 2007 23:55:36 -0000 1.32 @@ -119,11 +119,17 @@ if { $search_id ne "" && $contacts_total_count > 0 } { if {[contact::group::mapped_p -group_id $search_id]} { set recipient [contact::group::name -group_id $search_id] + set notifications_p [contact::group::notifications_p -group_id $search_id] } else { set recipient [contact::search::title -search_id $search_id] + set notifications_p 0 } - set label "[_ contacts.Mail_recipient]" + if { $notifications_p } { + set label [_ contacts.Notify_recipient] + } else { + set label [_ contacts.Mail_recipient] + } append form_elements { {mail_merge_group:text(submit) {label $label} {value "1"}} }