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

 _news__c_db-get-cr-revisions-row

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

Partial Call Graph (max 5 caller/called nodes):
%3 aa_export_vars aa_export_vars (public) db_0or1row db_0or1row (public) _news__c_db-get-cr-revisions-row _news__c_db-get-cr-revisions-row _news__c_db-get-cr-revisions-row->aa_export_vars _news__c_db-get-cr-revisions-row->db_0or1row

Testcases:
No testcase defined.
Source code:
    aa_export_vars {p_revision_id
        item_id title description publish_date mime_type nls_language
        content content_length
        retrieval_ok_p}
    set retrieval_ok_p 1
    if {![db_0or1row get-cr-revisions-row {
        select item_id, title, description, publish_date, mime_type,
        nls_language, content, content_length
        from cr_revisions
        where revision_id = :p_revision_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

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