xo::db::sql::bt_bug proc new (public)
xo::db::sql::bt_bug new [ -dbn dbn ] -bug_id bug_id \ -bug_number bug_number -package_id package_id \ -component_id component_id -found_in_version found_in_version \ -summary summary -user_agent user_agent \ -comment_content comment_content -comment_formt comment_formt \ -creation_date creation_date -creation_user creation_user \ -creation_ip creation_ip [ -item_subtype item_subtype ] \ [ -content_type content_type ] [ -childof childof ]
Defined in packages/xotcl-core/tcl/05-db-procs.tcl
Automatically generated method
- Switches:
- -dbn
(optional)- -bug_id
(required)- -bug_number
(required)- -package_id
(required)- -component_id
(required)- -found_in_version
(required)- -summary
(required)- -user_agent
(required)- -comment_content
(required)- -comment_formt
(required)- -creation_date
(required)- -creation_user
(required)- -creation_ip
(required)- -item_subtype
(defaults to"bt_bug"
) (optional)- -content_type
(defaults to"bt_bug_revision"
) (optional)- -childof
(optional)- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: #function_args: {BUG_ID {}} {BUG_NUMBER {}} {PACKAGE_ID {}} {COMPONENT_ID {}} {FOUND_IN_VERSION {}} {SUMMARY {}} {USER_AGENT {}} {COMMENT_CONTENT {}} {COMMENT_FORMT {}} {CREATION_DATE {}} {CREATION_USER {}} {CREATION_IP {}} {ITEM_SUBTYPE bt_bug} {CONTENT_TYPE bt_bug_revision} foreach var [list BUG_ID BUG_NUMBER PACKAGE_ID COMPONENT_ID FOUND_IN_VERSION SUMMARY USER_AGENT COMMENT_CONTENT COMMENT_FORMT CREATION_DATE CREATION_USER CREATION_IP ITEM_SUBTYPE CONTENT_TYPE] { set varname [string tolower $var] if {[info exists $varname]} { set $var [set $varname] set _$var :$var } else { set _$var null } } set sql " select bt_bug__new($_BUG_ID, $_BUG_NUMBER, $_PACKAGE_ID, $_COMPONENT_ID, $_FOUND_IN_VERSION, $_SUMMARY, $_USER_AGENT, $_COMMENT_CONTENT, $_COMMENT_FORMT, $_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_ITEM_SUBTYPE, $_CONTENT_TYPE) " 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