callback::application-track::getSpecificInfo::impl::faqs (private)

 callback::application-track::getSpecificInfo::impl::faqs

Defined in packages/faq/tcl/faq-callback-procs.tcl

callback implementation

See Also:

• callback::application-track::getSpecificInfo::contract

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    ::callback::application-track::getSpecificInfo::contract__arg_parser {*}$args


    upvar $query_name my_query
    upvar $elements_name my_elements

    set my_query {
        select f.faq_name as name,
               f1.question as question,
               f1.answer as answer,
               u.username as creator,
               o.creation_date as creation_date
        from   faqs f,
               acs_objects o,
               dotlrn_communities com,
               faq_q_and_as f1,
               acs_objects ac,
               users u
        where  o.object_id=f.faq_id
          and  com.community_id=:class_instance_id
          and  f.faq_id = f1.faq_id
          and  o.context_id = ac.object_id
          and  ac.context_id = com.package_id
          and  o.creation_user = u.user_id
    }

    set my_elements {
        name {
            label "Name"
            display_col name
            html {align center}

        }
        questions {
            label "Questions"
            display_col question
            html {align center}
        }
        answers {
            label "Answers"
            display_col answer
            html {align center}
        }
        creator {
            label "Creator"
            display_col creator
            html {align center}
        }
        creation_date {
            label "Creation_date"
            display_col creation_date
            html {align center}
        }

    }

    return "OK"

XQL Not present:

Generic, PostgreSQL, Oracle