_news__c_db-get-cr-news-row (private)

 _news__c_db-get-cr-news-row

Defined in packages/news/tcl/test/news-db-test-init.tcl

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

Testcases:

No testcase defined.

Source code:

    aa_export_vars {p_news_id
        package_id archive_date approval_user approval_date approval_ip
        retrieval_ok_p}
    set retrieval_ok_p 1
    if {![db_0or1row get-cr-news-row {
        select package_id, archive_date,
        approval_user, approval_date, approval_ip
        from cr_news
        where news_id = :p_news_id
    }]} {
        set retrieval_ok_p 0
    }

Generic XQL file:

packages/news/tcl/test/news-db-test-init.xql

PostgreSQL XQL file:

packages/news/tcl/test/news-db-test-init-postgresql.xql

Oracle XQL file:

packages/news/tcl/test/news-db-test-init-oracle.xql