faq-callback-procs.tcl


Procedures in this file

Detailed information

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

 callback::application-track::getApplicationName::impl::faqs

callback implementation

See Also:
  • callback::application-track::getApplicationName::contract

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

Testcases:
No testcase defined.

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

 callback::application-track::getGeneralInfo::impl::faqs

callback implementation

See Also:
  • callback::application-track::getGeneralInfo::contract

Partial Call Graph (max 5 caller/called nodes):
%3 db_1row db_1row (public) callback::application-track::getGeneralInfo::impl::faqs callback::application-track::getGeneralInfo::impl::faqs callback::application-track::getGeneralInfo::impl::faqs->db_1row

Testcases:
No testcase defined.

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

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

callback implementation

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

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

Testcases:
No testcase defined.
[ hide source ] | [ make this the default ]

Content File Source

d_proc -callback application-track::getApplicationName -impl faqs {} {
    callback implementation
} {
    return "faqs"
}

d_proc -callback application-track::getGeneralInfo -impl faqs {} {
    callback implementation
} {
    db_1row my_query {
        select count(f.faq_id) as result
        from   faqs f, acs_objects o, dotlrn_communities com, acs_objects ac
        where  o.object_id=f.faq_id
          and  com.community_id=:comm_id
          and  o.context_id = ac.object_id
          and  ac.context_id = com.package_id
    }

    return "$result"
}

d_proc -callback application-track::getSpecificInfo -impl faqs {} {
    callback implementation
} {

    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"
}
# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: