Index: openacs-4/packages/faq/tcl/q-and-a-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/faq/tcl/q-and-a-procs.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/faq/tcl/q-and-a-procs.tcl 10 Jul 2018 08:46:27 -0000 1.5 +++ openacs-4/packages/faq/tcl/q-and-a-procs.tcl 12 Jul 2018 10:02:50 -0000 1.6 @@ -9,25 +9,25 @@ namespace eval faq::notification_delivery { ad_proc -public do_notification { - question - answer - entry_id + question + answer + entry_id faq_id user_id } { Issues notifications for a FAQ - } { - set faq_name [db_string select_faq_name { + } { + set faq_name [db_string select_faq_name { select faq_name from faqs where faq_id = :faq_id }] set name [person::name -person_id $user_id] set email [party::email -party_id $user_id] - set faq_url [faq::notification::get_url $entry_id] + set faq_url [faq::notification::get_url $entry_id] - set q_a_text [ns_reflow_text -- "Question: $question\nAnswer: $answer"] - set text_version [subst {Faq: $faq_name\nAuthor: $name ($email)\n\n$q_a_text\n\n--To view the entire FAQ go to: $faq_url}] + set q_a_text [ns_reflow_text -- "Question: $question\nAnswer: $answer"] + set text_version [subst {Faq: $faq_name\nAuthor: $name ($email)\n\n$q_a_text\n\n--To view the entire FAQ go to: $faq_url}] set new_content $text_version set package_id [ad_conn package_id]