Index: openacs-4/packages/dotlrn/www/spam-recipients.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam-recipients.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/www/spam-recipients.tcl 29 Jun 2004 10:18:03 -0000 1.2 +++ openacs-4/packages/dotlrn/www/spam-recipients.tcl 24 Jul 2004 08:34:10 -0000 1.3 @@ -29,7 +29,27 @@ set read_private_data_p 1 } + set community_id [dotlrn_community::get_community_id] + +#element create spam_message rel_type \ +# -label [_ dotlrn.To] \ +# -datatype text \ + # -widget select \ + # -options [list [list [_ dotlrn.Members] dotlrn_member_rel] [list [_ dotlrn.Administrators] dotlrn_admin_rel]] \ + # -value $rel_type + + +# SET THE PROPERTIES RIGHT + +set roles [dotlrn_community::get_roles -community_id $community_id] +set rel_types_html "" + +foreach {rel_type role pretty_name pretty_plural} [eval concat $roles] { + append rel_types_html " [lang::util::localize $pretty_plural]
" + +} + db_multirow current_members select_current_members {} set exported_vars [export_vars -form { referer }]