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

 callback::application-track::getSpecificInfo::impl::forums

Defined in packages/forums/tcl/forums-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.name as name,f.thread_count as threads,
                f.last_post,
                to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
        FROM forums_forums f,dotlrn_communities_full com,acs_objects o
        WHERE com.community_id=:class_instance_id
        and f.forum_id = o.object_id
        and apm_package__parent_id(f.package_id) = com.package_id
    }

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

        }
        threads {
            label "Threads"
            display_col threads
            html {align center}
        }
        creation_date {
            label "creation_date"
            display_col creation_date
            html {align center}
        }
        last_post  {
            label "last_post"
            display_col last_post
            html {align center}
        }
    }

    return "OK"

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/forums/tcl/forums-callback-procs.xql