Index: openacs-4/packages/forums/www/moderate/message-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/message-edit.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/forums/www/moderate/message-edit.tcl	20 Jun 2003 15:24:24 -0000	1.7
+++ openacs-4/packages/forums/www/moderate/message-edit.tcl	17 Dec 2003 15:45:31 -0000	1.8
@@ -11,61 +11,7 @@
     {return_url "../message-view"}
 }
 
-form create message
-
-element create message message_id \
-    -label [_ forums.Message_ID] \
-    -datatype integer \
-    -widget hidden
-
-element create message subject \
-    -label [_ forums.Subject] \
-    -datatype text \
-    -widget text \
-    -html {size 60} \
-    -validate { {expr ![empty_string_p [string trim $value]]} {Please enter a subject} }
-
-element create message content \
-    -label [_ forums.Body] \
-    -datatype text \
-    -widget textarea \
-    -html {rows 20 cols 60 wrap soft} \
-    -validate {
-	empty {expr ![empty_string_p [string trim $value]]} {Please enter a message}
-	html { expr {( [string match [set l_html_p [ns_queryget html_p f]] "t"] && [empty_string_p [set v_message [ad_html_security_check $value]]] ) || [string match $l_html_p "f"] } }
-        {}	
-    }
-
-element create message html_p \
-    -label [_ forums.Format] \
-    -datatype text \
-    -widget select \
-    -options [list [list [_ forums.text] f] [list [_ forums.html] t]]
-
-if {[form is_valid message]} {
-    template::form get_values message message_id subject content html_p
-
-    forum::message::edit \
-            -message_id $message_id \
-            -subject $subject \
-            -content $content \
-            -html_p $html_p
-
-    ad_returnredirect "$return_url?message_id=$message_id"
-    ad_script_abort
-}
-
 forum::message::get -message_id $message_id -array message
 forum::get -forum_id $message(forum_id) -array forum
 
-# Prepare the other data 
-element set_properties message message_id -value $message_id
-element set_properties message subject -value $message(subject)
-element set_properties message content -value $message(content)
-element set_properties message html_p -value $message(html_p)
-
 ad_return_template
-
-
-
-