Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -N -r1.17.2.1 -r1.17.2.2
--- openacs-4/packages/dotlrn/www/spam.tcl	17 Oct 2002 12:17:40 -0000	1.17.2.1
+++ openacs-4/packages/dotlrn/www/spam.tcl	14 Jan 2003 20:23:00 -0000	1.17.2.2
@@ -75,13 +75,6 @@
     -widget textarea \
     -html {rows 10 cols 80 wrap soft}
 
-element create spam_message message_type \
-    -label "Message Type" \
-    -datatype text \
-    -widget select \
-    -options {{"Plain text" "text"} {HTML "html"}} \
-    -value "text"
-
 element create spam_message send_date \
     -label {Send Date} \
     -datatype date \
@@ -97,7 +90,7 @@
 
 if {[ns_queryexists "form:confirm"]} {
     form get_values spam_message \
-        community_id from rel_type subject message message_type send_date referer
+        community_id from rel_type subject message send_date referer
 
     set segment_id [db_string select_rel_segment_id {}]
     set community_name [dotlrn_community::get_community_name $community_id]
@@ -158,7 +151,6 @@
         -from_addr $from \
         -subject "\[$community_name\] $subject" \
         -message $message \
-        -message_type $message_type \
         -query $query
 
     ad_returnredirect $referer