_news__c_db-news-revision-create (private)

 _news__c_db-news-revision-create

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) ad_conn ad_conn (public) db_exec_plsql db_exec_plsql (public) dt_sysdate dt_sysdate (public) _news__c_db-news-revision-create _news__c_db-news-revision-create _news__c_db-news-revision-create->aa_export_vars _news__c_db-news-revision-create->ad_conn _news__c_db-news-revision-create->db_exec_plsql _news__c_db-news-revision-create->dt_sysdate

Testcases:
No testcase defined.
Source code:
    aa_export_vars {p_item_id
        p_full_details p_title p_text p_package_id p_make_active_revision_p
        p_description
        p_approval_user p_approval_ip p_approval_date p_archive_date
        revision_id}
    if {$p_full_details == "t"} {
        set p_approval_user [ad_conn "user_id"]
        set p_approval_ip   [ad_conn "peeraddr"]
        set p_approval_date [dt_sysdate]
        set p_archive_date  [dt_sysdate]
    } else {
        set p_approval_user ""
        set p_approval_ip   ""
        set p_approval_date ""
        set p_archive_date  ""
    }
    set revision_id [db_exec_plsql revision-create {
        begin
        :1 := news.revision_new(
                                item_id => :p_item_id,
                                text => :p_text,
                                title => :p_title,
                                package_id => :p_package_id,
                                archive_date =>  :p_archive_date,
                                approval_user => :p_approval_user,
                                approval_date => :p_approval_date,
                                approval_ip   => :p_approval_ip,
                                make_active_revision_p => :p_make_active_revision_p
                                );
        end;
    }]
Generic XQL file:
packages/news/tcl/test/news-db-test-init.xql

PostgreSQL XQL file:
<fullquery name="_news__c_db-news-revision-create.revision-create">
    <querytext>
    select news__revision_new(
      :p_item_id,
      current_timestamp, :p_text, :p_title,
      :p_description,
      'text/plain', :p_package_id, :p_archive_date, :p_approval_user, :p_approval_date,
                                                                      :p_approval_ip,
      current_timestamp, null, null,
      :p_make_active_revision_p, null
    );
  </querytext>
</fullquery>
packages/news/tcl/test/news-db-test-init-postgresql.xql

Oracle XQL file:
<fullquery name="_news__c_db-news-revision-create.revision-create">
    <querytext>
    begin
      :1 := news.revision_new(
        item_id => :p_item_id,
        text => :p_text,
        title => :p_title,
        description => :p_description,
        package_id => :p_package_id,
        archive_date =>  :p_archive_date,
        approval_user => :p_approval_user,
        approval_date => :p_approval_date,
        approval_ip   => :p_approval_ip,
        make_active_revision_p => :p_make_active_revision_p
      );
    end;
  </querytext>
</fullquery>
packages/news/tcl/test/news-db-test-init-oracle.xql

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