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