Search Results

# search-pls-subject.tcl,v 3.0 2000/02/06 03:34:35 ron Exp set_form_variables set_form_variables_string_trim_DoubleAposQQ set user_id [ad_verify_and_get_user_id] # query_string, topic if { ![info exists query_string] || $query_string == "" } { # probably using MSIE ns_return 200 text/html "[bboard_header "Missing Query"]

Missing Query

Either you didn't type a query string or you're using a quality Web browser like Microsoft Internet Explorer 3.x (which neglects to pass user input up the server). [bboard_footer] " return } set db [bboard_db_gethandle] if { $db == "" } { bboard_return_error_page return } # we ask for all the top level messages ReturnHeaders ns_write " Search Results Messages matching \"$query_string\"

"
ad_context_query_string


if [catch {set selection [ns_db select $db "select *
from bboard
where contains (indexed_stuff, '\$($query_string_for_ctx)', 10) > 0
and topic_id = $topic_id
and bboard_user_can_view_topic_p($user_id, $topic_id) = 't'
order by score(10) desc"]} errmsg] {

    ns_write "
[ad_return_context_error $errmsg]
[bboard_footer]"
    return

}

set counter 0

while {[ns_db getrow $db $selection]} {
    incr counter

    set_variables_after_query
    if { [string first "." $sort_key] == -1 } {
	# there is no period in the sort key so this is the start of a thread
	set thread_start_msg_id $sort_key
    } else {
	# strip off the stuff before the period
	regexp {(.*)\..*} $sort_key match thread_start_msg_id
    }
    ns_write "$one_line (view entire thread)\n"
}

ns_write "

" # let's cut the user free ns_conn close # but we keep the thread alive to log the query ad_record_query_string $query_string $db "bboard-$topic" $counter $user_id