edit.tcl
Form to edit a message
- Location:
- /packages/forums/lib/message/edit.tcl
- Author:
- Ben Adida <ben@openforce.net>
- Created:
- 2003-12-09
- CVS ID:
$Id: edit.tcl,v 1.3 2017/08/07 23:48:11 gustafn Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Form to edit a message @author Ben Adida (ben@openforce.net) @creation-date 2003-12-09 @cvs-id $Id: edit.tcl,v 1.3 2017/08/07 23:48:11 gustafn Exp $ } form create message element create message message_id \ -label [_ forums.Message_ID] \ -datatype integer \ -widget hidden forums::form::message message if {[form is_valid message]} { template::form get_values message message_id subject message_body set content [string trimright [template::util::richtext::get_property contents $message_body]] set format [string trimright [template::util::richtext::get_property format $message_body]] forum::message::edit \ -message_id $message_id \ -subject $subject \ -content $content \ -format $format ad_returnredirect "$return_url?message_id=$message_id" ad_script_abort } # Prepare the other data element set_properties message message_id -value $message(message_id) element set_properties message subject -value $message(subject) element set_properties message message_body -value [list $message(content) $message(format)] if {[info exists alt_template]} { ad_return_template $alt_template } # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End:
