# cc.tcl,v 3.0 2000/02/06 03:33:21 ron Exp ad_page_variables { key topic_id } page_validation { set topic_id [validate_integer "Topic ID" $topic_id] } # topic, topic_id, key (category) set category $key set QQcategory $QQkey set db [bboard_db_gethandle] if { $db == "" } { bboard_return_error_page return } 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 } # we found subject_line_suffix at least set_variables_after_query ReturnHeaders ns_write " $category threads in $topic

$category Threads

in the $topic question and answer forum
" if { $category != "uncategorized" } { set category_clause "and category = '$QQcategory'" } else { # **** NULL/'' problem, needs " or category = '' " set category_clause "and (category is NULL or category = 'Don''t Know')" } set sql "select msg_id, one_line, sort_key, email, first_names || ' ' || last_name as name, bboard_uninteresting_p(interest_level) as uninteresting_p from bboard, users where topic_id = $topic_id $category_clause and refers_to is null and users.user_id = bboard.user_id order by uninteresting_p, sort_key $q_and_a_sort_order" set selection [ns_db select $db $sql] ns_write "

Uninteresting Threads

(or at least the forum moderator thought they would only be of interest to rare individuals; truly worthless threads get deleted altogether) " 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 } if { $counter == 0 } { ns_write "There hasn't been any discussion yet.

You can be the one to start the discussion

(of $key) " } else { ns_write "

You can ask a new question

(about $key) " } ns_write "

[export_form_vars topic topic_id]
Your Email Address
Your Full Name
Subject Line
(summary of question)
Notify Me of Responses
(via email) 		Yes No
Message
(full question)		enter in box below, then press submit

" ns_write " [bboard_footer] " # *** here we want an [ns_conn close] but it didn't make 2.2b2 # let's see if we need to put this into the categories table if { $counter == 0 && [database_to_tcl_string $db "select count(*) from bboard_q_and_a_categories where topic_id = $topic_id and category = '$QQkey'"] == 0 } { # catch to trap the primary key complaint from Oracle catch { ns_db dml $db "insert into bboard_q_and_a_categories (topic_id, category) values ($topic_id,'$QQkey')" } }