---

::xo::db::Class ::xo::db::Object

Class Hierarchy of ::xo::db::Object

• ::xotcl::Object

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  __api_make_doc, __api_make_forward_doc, __timediff, abstract, ad_doc, ad_forward, ad_proc, append^C, array^C, asHTML, autoname^C, check, class^C, cleanup^C, configure^C, contains^C, copy^C, db_0or1row^C, db_1row^C, debug, defaultmethod^C, destroy^C, destroy_on_cleanup, dot_append_method, dotclass, dotcode, dotquote, dotquotel, ds, eval^C, exists^C, extractConfigureArg, filter^C, filterguard^C, filtersearch, forward, hasclass, incr^C, info^C, init, instvar^C, invar^C, isclass, ismetaclass, ismixin, isobject, istype, lappend^C, log, method, mixin^C, mixinguard^C, move^C, msg, noinit^C, objectparameter, parametercmd^C, proc, procsearch, qn, requireNamespace^C, residualargs^C, self, serialize, set^C, set_instance_vars_defaults, show-object, subst^C, trace^C, unknown, unset^C, uplevel^C, upvar^C, volatile^C, vwait

  Methods to be applied on the class (in addition to the methods provided by the meta-class):

  getExitHandler, setExitHandler, unsetExitHandler

• ::xo::db::Object

  Meta-class:

  ::xo::db::Class

  Methods for instances:

  db_1row, delete, initialize_loaded_object, insert, object_id^C, object_title^C, save, save_new

  Methods to be applied on the class:

  Methods provided by the meta-class

Class Relations

• superclass: ::xotcl::Object
• subclass: ::xo::Package, ::xo::db::CrItem, ::xo::db::apm_parameter

::xo::db::Class create ::xo::db::Object \
     -superclass ::xotcl::Object

Methods

• instproc db_1row

  ::xowiki::policy5 instproc db_1row {qn sql} {
        set answers [uplevel [list ::xo::db::pg_0or1row $sql]]
        if {$answers ne ""} {
  	foreach {att val} [ns_set array $answers] { my set $att $val }
  	ns_set free $answers
  	return 1
        }
        error "query $sql did not return an answer"
      }
  

• instproc delete (public)

  <instance of ::xo::db::Object> delete

  Delete the object from the database and from memory

  ::xowiki::policy5 instproc delete {} {
      ::xo::db::sql::acs_object delete -object_id [my set object_id]
      my destroy
    }
  

• instproc initialize_loaded_object

  ::xowiki::policy5 instproc initialize_loaded_object {} {
      #
      # This method is to be called, after an existing
      # object is fetched from the database.
      #
      # empty body, to be refined
    }
  

• instproc insert

  ::xowiki::policy5 instproc insert {} {my log no-insert;}
  

• instproc save (public)

  <instance of ::xo::db::Object> save [ -package_id package_id ] \
      [ -modifying_user modifying_user ]

  Save the current object in the database

  Switches:

  -package_id (optional)

  -modifying_user (optional)

  ::xowiki::policy5 instproc save {-package_id -modifying_user} {
      my instvar object_id
      if {![info exists package_id] && [my exists package_id]} {
        set package_id [my package_id]
      }
      [my info class] get_context package_id modifying_user modifying_ip
      db_dml dbqd..update_object {update acs_objects 
        set modifying_user = :modifying_user, modifying_ip = :modifying_ip
        where object_id = :object_id}
    }
  

• instproc save_new (public)

  <instance of ::xo::db::Object> save_new \
      [ -package_id package_id ] [ -creation_user creation_user ] \
      [ -creation_ip creation_ip ]

  Save the XOTcl Object with a fresh acs_object in the database.

  Switches:

  -package_id (optional)

  -creation_user (optional)

  -creation_ip (optional)

  Returns:

  new object id

  ::xowiki::policy5 instproc save_new {-package_id -creation_user -creation_ip} {
      if {![info exists package_id] && [my exists package_id]} {
        set package_id [my package_id]
      }
      [my info class] get_context package_id creation_user creation_ip
      db_transaction {
        set id [[my info class] new_acs_object  -package_id $package_id  -creation_user $creation_user  -creation_ip $creation_ip  ""]
        [my info class] initialize_acs_object [self] $id
        my insert
      }
      return $id
    }
  

---