xotcl.wu-wien.ac.at
Begin main content
Methods: Source: Variables:
[All Methods | Documented Methods | Hide Methods] [Display Source | Hide Source] [Show Variables | Hide Variables]

::xo::db::Class[i] ::xo::db::sql::apm_service

Class Hierarchy of ::xo::db::sql::apm_service

  • ::xotcl::Object[i]
    Meta-class:
    ::xotcl::Class[i]
    Methods for instances:
    __api_make_doc, __api_make_forward_doc, __timediff, abstract, ad_doc, ad_forward, ad_proc, appendC, arrayC, asHTML, autonameC, check, classC, cleanupC, configureC, containsC, copyC, db_0or1rowC, db_1rowC, debug, defaultmethodC, destroyC, destroy_on_cleanup, ds, evalC, existsC, extractConfigureArg, filterC, filterguardC, filtersearch, forward, hasclass, incrC, infoC, init, instvarC, invarC, isclass, ismetaclass, ismixin, isobject, istype, lappendC, log, method, mixinC, mixinguardC, moveC, msg, noinitC, objectparameter, parametercmdC, proc, procsearch, qn, requireNamespaceC, residualargsC, self, serialize, setC, set_instance_vars_defaults, show-object, substC, traceC, unknown, unsetC, uplevelC, upvarC, volatileC, vwait
    Methods to be applied on the class (in addition to the methods provided by the meta-class):
    getExitHandler, setExitHandler, unsetExitHandler
    • ::xo::db::sql::apm_service[i]
      Meta-class:
      ::xo::db::Class[i]
      Methods to be applied on the class (in addition to the methods provided by the meta-class):
      delete, new

Class Relations

  • superclass: ::xotcl::Object[i]
::xo::db::Class create ::xo::db::sql::apm_service \
     -superclass ::xotcl::Object

Methods

  • proc delete (public)

    ::xo::db::sql::apm_service[i] delete [ -dbn dbn ] -service_id service_id 
    Automatically generated method

    Switches:
    -dbn (optional)
    -service_id (required)
    ::1306782 proc delete {{-dbn {}} -service_id:required} {
            #function_args: {SERVICE_ID {}}
            foreach var [list SERVICE_ID]  {
              set varname [string tolower $var]
              if {[info exists $varname]} {
                set $var [set $varname]
                set _$var :$var
              } else {
                set _$var null
              }
            }
            set sql "
            select apm_service__delete($_SERVICE_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::apm_service[i] new [ -dbn dbn ] [ -service_id service_id ] \
        [ -instance_name instance_name ] -package_key package_key  \
        [ -object_type object_type ] [ -creation_date creation_date ] \
        [ -creation_user creation_user ] [ -creation_ip creation_ip ] \
        [ -context_id context_id ] [ -childof childof ]
    Automatically generated method

    Switches:
    -dbn (optional)
    -service_id (optional)
    -instance_name (optional)
    -package_key (required)
    -object_type (defaults to "apm_service") (optional)
    -creation_date (defaults to "now()") (optional)
    -creation_user (optional)
    -creation_ip (optional)
    -context_id (optional)
    -childof (optional)
    ::1306782 proc new {{-dbn {}} -service_id -instance_name -package_key:required {-object_type apm_service} {-creation_date now()} -creation_user -creation_ip -context_id -childof} {
            #function_args: {SERVICE_ID null} {INSTANCE_NAME null} {PACKAGE_KEY {}} {OBJECT_TYPE apm_service} {CREATION_DATE now()} {CREATION_USER null} {CREATION_IP null} {CONTEXT_ID null}
            foreach var [list SERVICE_ID INSTANCE_NAME PACKAGE_KEY OBJECT_TYPE CREATION_DATE CREATION_USER CREATION_IP CONTEXT_ID]  {
              set varname [string tolower $var]
              if {[info exists $varname]} {
                set $var [set $varname]
                set _$var :$var
              } else {
                set _$var null
              }
            }
            set sql "
            select apm_service__new($_SERVICE_ID, $_INSTANCE_NAME, $_PACKAGE_KEY, $_OBJECT_TYPE, $_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_CONTEXT_ID)
          "
            db_with_handle -dbn $dbn db {
              #ns_log notice "--sql=$sql"
              return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
            }
          }
    

Methods: Source: Variables:
[All Methods | Documented Methods | Hide Methods] [Display Source | Hide Source] [Show Variables | Hide Variables]