---

::xo::db::Class ::xo::db::sql::acs_rel

Class Hierarchy of ::xo::db::sql::acs_rel

• ::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::sql::acs_rel

  Meta-class:

  ::xo::db::Class

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

  delete, new

Class Relations

• superclass: ::xotcl::Object

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

Methods

• proc delete (public)

  ::xo::db::sql::acs_rel delete [ -dbn dbn ] -rel_id rel_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -rel_id (required)

  ::330608 proc delete {{-dbn {}} -rel_id:required} {
          #function_args: {REL_ID {}}
          foreach var [list REL_ID]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select acs_rel__delete($_REL_ID)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc new (public)

  ::xo::db::sql::acs_rel new [ -dbn dbn ] -rel_id rel_id  \
      -rel_type rel_type  -object_id_one object_id_one  \
      -object_id_two object_id_two  -context_id context_id  \
      -creation_user creation_user  -creation_ip creation_ip  \
      [ -childof childof ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -rel_id (required)

  -rel_type (required)

  -object_id_one (required)

  -object_id_two (required)

  -context_id (required)

  -creation_user (required)

  -creation_ip (required)

  -childof (optional)

  ::330608 proc new {{-dbn {}} -rel_id:required -rel_type:required -object_id_one:required -object_id_two:required -context_id:required -creation_user:required -creation_ip:required -childof} {
          #function_args: {REL_ID {}} {REL_TYPE {}} {OBJECT_ID_ONE {}} {OBJECT_ID_TWO {}} {CONTEXT_ID {}} {CREATION_USER {}} {CREATION_IP {}}
          foreach var [list REL_ID REL_TYPE OBJECT_ID_ONE OBJECT_ID_TWO CONTEXT_ID CREATION_USER CREATION_IP]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select acs_rel__new($_REL_ID, $_REL_TYPE, $_OBJECT_ID_ONE, $_OBJECT_ID_TWO, $_CONTEXT_ID, $_CREATION_USER, $_CREATION_IP)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

---