Forum OpenACS Q&A: Response to configing new-ticket with something like domain-edit.tcl

if [catch { set n_previous [database_to_tcl_string $db "select count(*) from ticket_issues
where one_line = '$QQone_line'
and project_id = $project_id
and dbms_lob.instr(message,'[bboard_convert_plaintext_to_html $QQmessage]') > 0"]} errmsg] {
    ns_log Notice "failed trying to look up previous posting: $errmsg"
} else {
    # lookup succeeded
    if { $n_previous > 0 } {
	incr exception_count
	append exception_text "
There are already $n_previous messages in the database with the same subject line and body.  Perhaps you already posted this?  Here are the messages:

"
        set selection [ns_db select $db "select first_names || ' ' || last_name as name, email, posting_time
from ticket_issues, users
where one_line = '$QQone_line'
and project_id = $project_id
and dbms_lob.instr(message,'[DoubleApos $message]') > 0
and ticket_issues.user_id = users.user_id"]