xo::db::sql::apm_package_version proc new (public)
xo::db::sql::apm_package_version new [ -dbn dbn ] \ [ -version_id version_id ] -package_key package_key \ [ -version_name version_name ] -version_uri version_uri \ -summary summary -description_format description_format \ -description description -release_date release_date \ -vendor vendor -vendor_uri vendor_uri -auto_mount auto_mount \ [ -installed_p installed_p ] \ [ -data_model_loaded_p data_model_loaded_p ] [ -childof childof ]
Defined in /var/www/openacs.org/packages/xotcl-core/tcl/05-db-procs.tcl
Automatically generated method
- Switches:
- -dbn (optional)
- -version_id (optional)
- -package_key (required)
- -version_name (optional)
- -version_uri (required)
- -summary (required)
- -description_format (required)
- -description (required)
- -release_date (required)
- -vendor (required)
- -vendor_uri (required)
- -auto_mount (required)
- -installed_p (optional, defaults to
"f"
)- -data_model_loaded_p (optional, defaults to
"f"
)- -childof (optional)
- Testcases:
- No testcase defined.
Source code: #function_args: {VERSION_ID null} {PACKAGE_KEY {}} {VERSION_NAME null} {VERSION_URI {}} {SUMMARY {}} {DESCRIPTION_FORMAT {}} {DESCRIPTION {}} {RELEASE_DATE {}} {VENDOR {}} {VENDOR_URI {}} {AUTO_MOUNT {}} {INSTALLED_P f} {DATA_MODEL_LOADED_P f} foreach var [list VERSION_ID PACKAGE_KEY VERSION_NAME VERSION_URI SUMMARY DESCRIPTION_FORMAT DESCRIPTION RELEASE_DATE VENDOR VENDOR_URI AUTO_MOUNT INSTALLED_P DATA_MODEL_LOADED_P] { set varname [string tolower $var] if {[info exists $varname]} { set $var [set $varname] set _$var :$var } else { set _$var null } } set sql " select apm_package_version__new($_VERSION_ID, $_PACKAGE_KEY, $_VERSION_NAME, $_VERSION_URI, $_SUMMARY, $_DESCRIPTION_FORMAT, $_DESCRIPTION, $_RELEASE_DATE, $_VENDOR, $_VENDOR_URI, $_AUTO_MOUNT, $_INSTALLED_P, $_DATA_MODEL_LOADED_P) " 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