xo::db::sql::wp_presentation proc new (public)
xo::db::sql::wp_presentation new [ -dbn dbn ] \ -creation_date creation_date -creation_user creation_user \ -creation_ip creation_ip -pres_title pres_title \ -page_signature page_signature \ -copyright_notice copyright_notice -style style \ -public_p public_p -show_modified_p show_modified_p -aud aud \ -back back -parent_id parent_id [ -childof childof ]
Defined in packages/xotcl-core/tcl/05-db-procs.tcl
Automatically generated method
- Switches:
- -dbn
(optional)- -creation_date
(required)- -creation_user
(required)- -creation_ip
(required)- -pres_title
(required)- -page_signature
(required)- -copyright_notice
(required)- -style
(required)- -public_p
(required)- -show_modified_p
(required)- -aud
(required)- -back
(required)- -parent_id
(required)- -childof
(optional)- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: #function_args: {CREATION_DATE {}} {CREATION_USER {}} {CREATION_IP {}} {PRES_TITLE {}} {PAGE_SIGNATURE {}} {COPYRIGHT_NOTICE {}} {STYLE {}} {PUBLIC_P {}} {SHOW_MODIFIED_P {}} {AUD {}} {BACK {}} {PARENT_ID {}} foreach var [list CREATION_DATE CREATION_USER CREATION_IP PRES_TITLE PAGE_SIGNATURE COPYRIGHT_NOTICE STYLE PUBLIC_P SHOW_MODIFIED_P AUD BACK PARENT_ID] { set varname [string tolower $var] if {[info exists $varname]} { set $var [set $varname] set _$var :$var } else { set _$var null } } set sql " select wp_presentation__new($_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_PRES_TITLE, $_PAGE_SIGNATURE, $_COPYRIGHT_NOTICE, $_STYLE, $_PUBLIC_P, $_SHOW_MODIFIED_P, $_AUD, $_BACK, $_PARENT_ID) " db_with_handle -dbn $dbn db { #ns_log notice "--sql=$sql" return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ] }XQL Not present: Generic, PostgreSQL, Oracle