xo::db::Class instproc new_persistent_object (public)

 <instance of xo::db::Class> new_persistent_object \
    [ -package_id package_id ] [ -creation_user creation_user ] \
    [ -creation_ip creation_ip ] args [ args... ]

Defined in /var/www/openacs.org/packages/xotcl-core/tcl/05-db-procs.tcl

Create a new instance of the given class, configure it with the given arguments and insert it into the database. The XOTcl object is destroyed automatically on cleanup (end of a connection request).

Switches:

-package_id (optional)

-creation_user (optional)

-creation_ip (optional)

Parameters:

args (required)

Returns:

fully qualified object

Testcases:

xotcl_core_tutorial_1, xotcl_core_tutorial_2

Source code:

:get_context package_id creation_user creation_ip
::xo::dc transaction {
  set id [:new_acs_object  -package_id $package_id  -creation_user $creation_user  -creation_ip $creation_ip  ""]
  #[self class] set during_fetch 1
  ad_try {
    :create ::$id {*}$args
  } on error {errorMsg} {
    ad_log error "create fails: $errorMsg"
  }
  #[self class] unset during_fetch
  :initialize_acs_object ::$id $id
  ::$id insert
}
::$id destroy_on_cleanup
return ::$id

XQL Not present:

Generic, PostgreSQL, Oracle