# custom-q-and-a-fetch.tcl,v 3.0 2000/02/06 03:33:43 ron Exp set_the_usual_form_variables # key, topic, topic_id # custom_sort_key is defined to be unique set db [bboard_db_gethandle] if { $db == "" } { bboard_return_error_page return } set selection [ns_db 0or1row $db "select to_char(posting_time,'Month DD, YYYY') as posting_date,bboard.*, users.user_id as poster_id, users.first_names || ' ' || users.last_name as name from bboard, users where bboard.user_id = users.user_id and msg_id = '$QQmsg_id'"] if { $selection == "" } { # *** this needs to be patched to look at ad_get_user_id # there ain't no message like this if [catch {set selection [ns_db 1row $db "select distinct * from bboard_topics where topic_id=$topic_id"]} errmsg] { bboard_return_cannot_find_topic_page return } set_variables_after_query set headers [ns_conn headers] if { $headers == "" || ![regexp {LusenetEmail=([^;]*).*$} [ns_set get $headers Cookie] {} LusenetEmail] } { set default_email "" } else { set default_email $LusenetEmail } if { $headers == "" || ![regexp {LusenetName=([^;]*).*$} [ns_set get $headers Cookie] {} LusenetName] } { set default_name "" } else { set default_name $LusenetName } ReturnHeaders ns_write "[bboard_header "No Discussion Yet"]

No Discussion Yet

of $key in the $topic Q&A Forum
$custom_sort_not_found_text

You can be the one to start the discussion

" # think about writing a category SELECT if { $q_and_a_categorized_p == "t" && $q_and_a_solicit_category_p == "t" } { set categories [database_to_tcl_list $db "select distinct category, upper(category) from bboard_q_and_a_categories where topic_id = $topic_id order by 2"] set html_select "" ns_write "\n" } ns_write "
Your Email Address
Your Full Name
Subject Line
(summary of question)
Category\n$html_select\n(this helps build the FAQ archives)
Notify Me of Responses
(via email) 		Yes No
Message
(full question)		enter in textarea below, then press submit

$maintainer_email
" return } set_variables_after_query set this_msg_id $msg_id set this_one_line $one_line # now variables like $message and $topic are defined if [catch {set selection [ns_db 1row $db "select distinct * from bboard_topics where topic=$topic_id"]} errmsg] { bboard_return_cannot_find_topic_page return } set_variables_after_query set contributed_by "Asked by $name ($email) on [util_IllustraDatetoPrettyDate $posting_date]." ReturnHeaders ns_write " $one_line

$one_line

asked in the $topic Q&A Forum
$message
$contributed_by " set selection [ns_db select $db "select email <> '$maintainer_email' as not_maintainer_p, to_char(posting_time,'YYYY-MM-DD') as posting_date,bboard.* from bboard where root_msg_id = '$QQmsg_id' and msg_id <> '$QQmsg_id' order by not_maintainer_p, sort_key"] while {[ns_db getrow $db $selection]} { set_variables_after_query if { $email == "" } { set contributed_by "anonymously answered on [util_IllustraDatetoPrettyDate $posting_date]." } else { set contributed_by "Answered by $name ($email) on [util_IllustraDatetoPrettyDate $posting_date]." } set this_response "" if { $one_line != $this_one_line && $one_line != "Response to $this_one_line" } { # new subject append this_response "

$one_line

\n" } append this_response "
$message
$contributed_by" lappend responses $this_response } if { [info exists responses] } { # there were some ns_write "

Answers

[join $responses "
"] " } ns_write "
Contribute an answer to \"$this_one_line\" [bboard_footer] "