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 "<input type=checkbox value=$rel_type name=rel_types>  [lang::util::localize $pretty_plural] <br>"
+
+}
+
 db_multirow current_members select_current_members {}
 
 set exported_vars [export_vars -form { referer }]