# admin-update-topics-table.tcl,v 3.1 2000/02/19 23:38:04 bdolicki Exp
set_form_variables_string_trim_DoubleAposQQ
set_form_variables
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
if {[bboard_get_topic_info] == -1} {
return
}
if {[bboard_admin_authorization] == -1} {
return
}
set selection [ns_db 1row $db "select u.email as maintainer_email, u.first_names || ' ' || u.last_name as maintainer_name
from bboard_topics t, users u
where topic_id=$topic_id
and t.primary_maintainer_id = u.user_id"]
set_variables_after_query
# cookie checks out; user is authorized
set exception_text ""
set exception_count 0
if { [info exists maintainer_name] && $maintainer_name == "" } {
append exception_text "You can't have a blank Maintainer Name. The system uses this information to generate part of the user interface"
incr exception_count
}
if { [info exists maintainer_email] && $maintainer_email == "" } {
append exception_text "You can't have a blank Maintainer Email address. The system uses this information to generate part of the user interface"
incr exception_count
}
if { $exception_count> 0 } {
if { $exception_count == 1 } {
set problem_string "a problem"
set please_correct "it"
} else {
set problem_string "some problems"
set please_correct "them"
}
ns_return 200 text/html "
Problem Updating Topic
Problem Updating Topic
We had $problem_string updating your topic:
Please back up using your browser, correct $please_correct,
and resubmit your form.
Thank you.
[bboard_footer]
"
return 0
}
# we have to treat the textarea stuff specially (some browsers give us a blank line or two)
#if { [info exists policy_statement] && ![regexp {[A-Za-z]} $policy_statement] } {
# # we have the form variable but there are no alpha characters in it
# ns_set update [ns_conn form] policy_statement ""
#}
#if { [info exists pre_post_caveat] && ![regexp {[A-Za-z]} $pre_post_caveat] } {
# we have the form variable but there are no alpha characters in it
# ns_set update [ns_conn form] pre_post_caveat ""
#}
set sql [util_prepare_update $db bboard_topics "topic_id" $topic_id [ns_conn form]]
if [catch {ns_db dml $db $sql} errmsg] {
ns_return 200 text/html "
Topic Not Updated
Topic Not Updated
The database rejected the update of discussion topic \"$topic\". Here was
the error message:
$errmsg
[bboard_footer]"
return 0
}
# the database insert went OK
set selection [ns_db 1row $db "select distinct * from bboard_topics where topic_id=$topic_id"]
set_variables_after_query
ns_return 200 text/html "
Topic Updated
Topic Updated
\"$topic\" updated in
[bboard_system_name]
If you've read Philip
Greenspun's book on Web publishing then you'll appreciate the SQL:
$sql
Remember to link to the user Q&A page from your public pages and bookmark
the
admin page after you return there.
[bboard_footer]"