# update-topic.tcl,v 3.0 2000/02/06 03:34:51 ron Exp
set_form_variables_string_trim_DoubleAposQQ
set_form_variables
page_validation {
validate_integer $topic_id
}
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
set exception_text ""
set exception_count 0
if { ![info exists maintainer_name] || $maintainer_name == "" } {
append exception_text "You must enter a 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 must enter a Maintainer Email address. The system uses this information to generate part of the user interface"
incr exception_count
}
if { ![info exists admin_password] || $admin_password == "" } {
append exception_text "You must enter an administration password. Otherwise any random person from the Internet would be able to delete all of the messages on the bboard, restrict it so that users couldn't get into the bboard, etc."
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_system_owner]
"
return 0
}
# no exceptions found
set extra_set ""
if { [bboard_use_ns_perm_authorization_p] == 1 && [info exists ns_perm_group] } {
if { $ns_perm_group == {Do Not Use ns_perm} } {
set extra_set ",\nns_perm_group = NULL"
} else {
set extra_set ",\nns_perm_group = '$QQns_perm_group'"
}
}
if [catch {ns_db dml $db "update bboard_topics
set backlink = '$QQbacklink',
backlink_title = '$QQbacklink_title',
admin_password = '$QQadmin_password',
user_password = '$QQuser_password',
maintainer_name = '$QQmaintainer_name',
maintainer_email = '$QQmaintainer_email',
subject_line_suffix = '$QQsubject_line_suffix',
pre_post_caveat = '$QQpre_post_caveat',
notify_of_new_postings_p = '$QQnotify_of_new_postings_p',
presentation_type = '$QQpresentation_type' $extra_set
where topic_id = $topic_id"} 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_system_owner]
"
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
if { $notify_of_new_postings_p == "t" } {
set notify_blurb "Maintainer will be notified via email every time there is a new posting"
} else {
set notify_blurb "Maintainer will not be notified of new postings"
}
if { [bboard_use_ns_perm_authorization_p] == 1 && $user_password != "" } {
if { $ns_perm_group != "" } {
set authorization_line "this is a private group, open only to those who know the user password and members of the \"$ns_perm_group\" ns_perm group"
} else {
# private but not using ns_perm
set authorization_line "this is a private group, open only to those who know the user password"
}
} else {
set authorization_line ""
}
ns_return 200 text/html "
Topic Updated
Topic Updated
\"$topic\" updated in
[bboard_system_name]
- Backlink: $backlink_title
- Maintainer: $maintainer_name ($maintainer_email)
- Admin Password: \"$admin_password\"
- User Password: \"$user_password\"
$authorization_line
- What to add after the Subject line: \"$subject_line_suffix\"
- $notify_blurb
Remember to link to the user page from your public pages and bookmark
the
admin page after you return there.
[bboard_footer]"