# admin-edit-msg.tcl,v 3.0 2000/02/06 03:32:52 ron Exp set_form_variables # msg_id is the key set db [bboard_db_gethandle] if { $db == "" } { bboard_return_error_page return } set selection [ns_db 1row $db "select bboard.*, users.email, users.first_names || ' ' || users.last_name as name, bboard_topics.topic from bboard, users, bboard_topics where users.user_id = bboard.user_id and bboard_topics.topic_id = bboard.topic_id and msg_id = '$QQmsg_id'"] set_variables_after_query set QQtopic [DoubleApos $topic] if {[bboard_get_topic_info] == -1} { return} if {[bboard_admin_authorization] == -1} { return} # find out if this is usgeospatial set presentation_type [database_to_tcl_string $db "select presentation_type from bboard_topics where topic_id=$topic_id"] ReturnHeaders ns_write " Edit \"$one_line\"

Edit \"$one_line\"

(main admin page)
" if {$presentation_type == "usgeospatial"} { ns_write " " } # we have to quote this in case it contains a TEXTAREA itself ns_write "
Subject Line
Poster Email Address: $email
Poster Full Name: $name
EPA Region
USPS
FIPS
TRI ID
Message
Text above is:

[bboard_footer]"