one-question.tcl

View contents of one Q&A

Location:
/packages/faq/www/admin/one-question.tcl
Authors:

Elizabeth Wirth <wirth@ybos.net>

Jennie Housman <jennie@ybos.net>

Nima Mazloumi <nima.mazloumi@gx.de>

Created:

2000-10-24

Related Files

[ hide source ]

File Contents

#/faq/www/admin/one-question.tcl

ad_page_contract {

  View contents of one Q&A
    @author Elizabeth Wirth (wirth@ybos.net)
    @author Jennie Housman (jennie@ybos.net)
    @author Nima Mazloumi (nima.mazloumi@gx.de)
    @creation-date 2000-10-24
 
} {
    entry_id:object_type(faq_q_and_a)
} -properties {
    entry_id:onevalue
}

set package_id [ad_conn package_id]

permission::require_permission -object_id $package_id -privilege faq_admin_faq

if {![db_0or1row q_and_a_info {
    select question, answer, a.faq_id, f.faq_name  
    from faq_q_and_as a, faqs f 
    where entry_id = :entry_id
    and a.faq_id = f.faq_id
}]} {
    ad_return_complaint 1 [_ faq.lt_no_questions]
    ad_script_abort
}

set context [list [list "one-faq?faq_id=$faq_id" "$faq_name"] "[_ faq.One_Question]"]

set edit_url [export_vars -base q-and-a-add-edit { entry_id faq_id }]
set delete_url [export_vars -base q-and-a-delete { entry_id faq_id }]
set create_url [export_vars -base q-and-a-add-edit { faq_id } ]

ad_return_template

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: