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

 callback::application-track::getSpecificInfo::impl::news

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

callback implementation

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

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

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 news.publish_title as name, news.pretty_publish_date as initial_date, news.publish_date as finish_date
        FROM news_items_approved news,dotlrn_communities_full com
        WHERE community_id=:class_instance_id
        and apm_package__parent_id(news.package_id) = com.package_id }

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

        }
        initial_date {
            label "Initial Date"
            display_col initial_date
            html {align center}
        }
        finish_date {
            label "Finish Date"
            display_col finish_date
            html {align center}
        }
    }
    return "OK"
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/news/tcl/news-callback-procs.xql

[ hide source ] | [ make this the default ]
Show another procedure: