xo::db::sql::apm proc register_service (public)
xo::db::sql::apm register_service [ -dbn dbn ] \ -package_key package_key -pretty_name pretty_name \ -pretty_plural pretty_plural -package_uri package_uri \ [ -initial_install_p initial_install_p ] \ [ -singleton_p singleton_p ] \ [ -implements_subsite_p implements_subsite_p ] \ [ -inherit_templates_p inherit_templates_p ] \ [ -spec_file_path spec_file_path ] \ [ -spec_file_mtime spec_file_mtime ]
Defined in packages/xotcl-core/tcl/05-db-procs.tcl
Automatically generated method
- Switches:
- -dbn
(optional)- -package_key
(required)- -pretty_name
(required)- -pretty_plural
(required)- -package_uri
(required)- -initial_install_p
(defaults to"f"
) (optional)- -singleton_p
(defaults to"f"
) (optional)- -implements_subsite_p
(defaults to"f"
) (optional)- -inherit_templates_p
(defaults to"f"
) (optional)- -spec_file_path
(optional)- -spec_file_mtime
(optional)- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: #function_args: {PACKAGE_KEY {}} {PRETTY_NAME {}} {PRETTY_PLURAL {}} {PACKAGE_URI {}} {INITIAL_INSTALL_P f} {SINGLETON_P f} {IMPLEMENTS_SUBSITE_P f} {INHERIT_TEMPLATES_P f} {SPEC_FILE_PATH null} {SPEC_FILE_MTIME null} foreach var [list PACKAGE_KEY PRETTY_NAME PRETTY_PLURAL PACKAGE_URI INITIAL_INSTALL_P SINGLETON_P IMPLEMENTS_SUBSITE_P INHERIT_TEMPLATES_P SPEC_FILE_PATH SPEC_FILE_MTIME] { set varname [string tolower $var] if {[info exists $varname]} { set $var [set $varname] set _$var :$var } else { set _$var null } } set sql " select apm__register_service($_PACKAGE_KEY, $_PRETTY_NAME, $_PRETTY_PLURAL, $_PACKAGE_URI, $_INITIAL_INSTALL_P, $_SINGLETON_P, $_IMPLEMENTS_SUBSITE_P, $_INHERIT_TEMPLATES_P, $_SPEC_FILE_PATH, $_SPEC_FILE_MTIME) " 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