_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