xo::db::sql::apm proc update_package (public)

 xo::db::sql::apm update_package [ -dbn dbn ] -package_key package_key  \
    [ -pretty_name pretty_name ] [ -pretty_plural pretty_plural ] \
    [ -package_uri package_uri ] [ -package_type package_type ] \
    [ -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 /var/www/openacs.org/packages/xotcl-core/tcl/05-db-procs.tcl

Automatically generated method

Switches:

-dbn (optional)

-package_key (required)

-pretty_name (optional)

-pretty_plural (optional)

-package_uri (optional)

-package_type (optional)

-initial_install_p (optional)

-singleton_p (optional)

-implements_subsite_p (optional, defaults to "f")

-inherit_templates_p (optional, defaults to "f")

-spec_file_path (optional)

-spec_file_mtime (optional)

Testcases:

No testcase defined.

Source code:

#function_args: {PACKAGE_KEY {}} {PRETTY_NAME null} {PRETTY_PLURAL null} {PACKAGE_URI null} {PACKAGE_TYPE null} {INITIAL_INSTALL_P null} {SINGLETON_P null} {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 PACKAGE_TYPE 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__update_package($_PACKAGE_KEY, $_PRETTY_NAME, $_PRETTY_PLURAL, $_PACKAGE_URI, $_PACKAGE_TYPE, $_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