_news__c_db-news-item-create (private)

 _news__c_db-news-item-create

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_full_details p_title p_text p_package_id p_is_live
        p_approval_user p_approval_ip p_approval_date p_archive_date
        news_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 news_id [db_exec_plsql item-create {
        begin
        :1 := news.new(
                       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,
                       is_live_p     => :p_is_live
                       );
        end;
    }]

Generic XQL file:

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

PostgreSQL XQL file:

<fullquery name="_news__c_db-news-item-create.item-create">
    <querytext>
   select news__new(
      null,
      null,
      current_timestamp, :p_text, null, :p_title, 'text/plain',
      :p_package_id, :p_archive_date, :p_approval_user, :p_approval_date, :p_approval_ip,
      null,
      null,null,
      :p_is_live,null
    );
  </querytext>
</fullquery>

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

Oracle XQL file:

<fullquery name="_news__c_db-news-item-create.item-create">
    <querytext>
    begin
      :1 := news.new(
        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,
        is_live_p     => :p_is_live
      );
    end;
  </querytext>
</fullquery>

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