%3 ::xotcl::Object ::xotcl::Object → getExitHandler → setExitHandler → unsetExitHandler __object_configureparameter __timediff abstract ad_doc ad_forward ad_proc asHTML check class db_0or1row db_1row debug destroy_on_cleanup ds extractConfigureArg filter filtersearch forward hasclass init invar isclass ismetaclass ismixin isobject istype log method mixin mset msg parametercmd proc procsearch qn self serialize set_instance_vars_defaults unknown vwait www-show-object ::xo::db::sql::user_profile ::xo::db::sql::user_profile → delete → new ::xo::db::sql::user_profile->::xotcl::Object

Class ::xo::db::sql::user_profile

::xo::db::sql::user_profile[i] create ...
Defined in

Class Relations

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

Methods (to be applied on the object)

  • delete (scripted, public)

     xo::db::sql::user_profile[i] delete [ -dbn dbn ] -profile_id profile_id

    Automatically generated method

    Switches:
    -dbn (optional)
    -profile_id (required)

    Testcases:
    No testcase defined.
    #function_args: {PROFILE_ID {}}
foreach var [list PROFILE_ID]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select user_profile__delete($_PROFILE_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • new (scripted, public)

     xo::db::sql::user_profile[i] new [ -dbn dbn ] -profile_id profile_id  \
    [ -rel_type rel_type ] -object_id_one object_id_one  \
    -object_id_two object_id_two  -member_state member_state  \
    -creation_user creation_user  -creation_ip creation_ip  \
    [ -childof childof ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -profile_id (required)
    -rel_type (optional, defaults to "user_profile")
    -object_id_one (required)
    -object_id_two (required)
    -member_state (required)
    -creation_user (required)
    -creation_ip (required)
    -childof (optional)

    Testcases:
    No testcase defined.
    #function_args: {PROFILE_ID {}} {REL_TYPE user_profile} {OBJECT_ID_ONE {}} {OBJECT_ID_TWO {}} {MEMBER_STATE {}} {CREATION_USER {}} {CREATION_IP {}}
foreach var [list PROFILE_ID REL_TYPE OBJECT_ID_ONE OBJECT_ID_TWO MEMBER_STATE 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 user_profile__new($_PROFILE_ID, $_REL_TYPE, $_OBJECT_ID_ONE, $_OBJECT_ID_TWO, $_MEMBER_STATE, $_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 ]
}