---

Class ::xo::db::sql::acs_object

::xo::db::sql::acs_object create ...

Class Relations

• class: ::xo::db::Class
• superclass: ::xotcl::Object

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

Methods (to be applied on the object)

• check_context_index (scripted, public)

   xo::db::sql::acs_object check_context_index [ -dbn dbn ] \
      -object_id object_id  -ancestor_id ancestor_id  \
      -n_generations n_generations 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id

  (required)

  -ancestor_id

  (required)

  -n_generations

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {OBJECT_ID {}} {ANCESTOR_ID {}} {N_GENERATIONS {}}
  foreach var [list OBJECT_ID ANCESTOR_ID N_GENERATIONS]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select acs_object__check_context_index($_OBJECT_ID, $_ANCESTOR_ID, $_N_GENERATIONS) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• check_object_ancestors (scripted, public)

   xo::db::sql::acs_object check_object_ancestors [ -dbn dbn ] \
      -object_id object_id  -ancestor_id ancestor_id  \
      -n_generations n_generations 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id

  (required)

  -ancestor_id

  (required)

  -n_generations

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {OBJECT_ID {}} {ANCESTOR_ID {}} {N_GENERATIONS {}}
  foreach var [list OBJECT_ID ANCESTOR_ID N_GENERATIONS]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select acs_object__check_object_ancestors($_OBJECT_ID, $_ANCESTOR_ID, $_N_GENERATIONS) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• check_object_descendants (scripted, public)

   xo::db::sql::acs_object check_object_descendants [ -dbn dbn ] \
      -object_id object_id  -descendant_id descendant_id  \
      -n_generations n_generations 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id

  (required)

  -descendant_id

  (required)

  -n_generations

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {OBJECT_ID {}} {DESCENDANT_ID {}} {N_GENERATIONS {}}
  foreach var [list OBJECT_ID DESCENDANT_ID N_GENERATIONS]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select acs_object__check_object_descendants($_OBJECT_ID, $_DESCENDANT_ID, $_N_GENERATIONS) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• check_path (scripted, public)

   xo::db::sql::acs_object check_path [ -dbn dbn ] -object_id object_id  \
      -ancestor_id ancestor_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id

  (required)

  -ancestor_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {OBJECT_ID {}} {ANCESTOR_ID {}}
  foreach var [list OBJECT_ID ANCESTOR_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_object__check_path($_OBJECT_ID, $_ANCESTOR_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• default_name (scripted, public)

   xo::db::sql::acs_object default_name [ -dbn dbn ] \
      -object_id object_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {OBJECT_ID {}}
  foreach var [list OBJECT_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_object__default_name($_OBJECT_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• delete (scripted, public)

   xo::db::sql::acs_object delete [ -dbn dbn ] -object_id object_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  xotcl_core_tutorial_2, xotcl_core_tutorial_4

  #function_args: {OBJECT_ID {}}
  foreach var [list OBJECT_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_object__delete($_OBJECT_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• get_attr_storage_column (scripted, public)

   xo::db::sql::acs_object get_attr_storage_column [ -dbn dbn ] \
      -v_vals v_vals 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -v_vals

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {V_VALS {}}
  foreach var [list V_VALS]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select acs_object__get_attr_storage_column($_V_VALS) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• get_attr_storage_sql (scripted, public)

   xo::db::sql::acs_object get_attr_storage_sql [ -dbn dbn ] \
      -v_vals v_vals 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -v_vals

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {V_VALS {}}
  foreach var [list V_VALS]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select acs_object__get_attr_storage_sql($_V_VALS) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• get_attr_storage_table (scripted, public)

   xo::db::sql::acs_object get_attr_storage_table [ -dbn dbn ] \
      -v_vals v_vals 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -v_vals

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {V_VALS {}}
  foreach var [list V_VALS]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select acs_object__get_attr_storage_table($_V_VALS) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• get_attribute (scripted, public)

   xo::db::sql::acs_object get_attribute [ -dbn dbn ] \
      -object_id_in object_id_in  -attribute_name_in attribute_name_in 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id_in

  (required)

  -attribute_name_in

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {OBJECT_ID_IN {}} {ATTRIBUTE_NAME_IN {}}
  foreach var [list OBJECT_ID_IN ATTRIBUTE_NAME_IN]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select acs_object__get_attribute($_OBJECT_ID_IN, $_ATTRIBUTE_NAME_IN) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• get_attribute_storage (scripted, public)

   xo::db::sql::acs_object get_attribute_storage [ -dbn dbn ] \
      -object_id_in object_id_in  -attribute_name_in attribute_name_in 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id_in

  (required)

  -attribute_name_in

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {OBJECT_ID_IN {}} {ATTRIBUTE_NAME_IN {}}
  foreach var [list OBJECT_ID_IN ATTRIBUTE_NAME_IN]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select acs_object__get_attribute_storage($_OBJECT_ID_IN, $_ATTRIBUTE_NAME_IN) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• initialize_attributes (scripted, public)

   xo::db::sql::acs_object initialize_attributes [ -dbn dbn ] \
      -object_id object_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {OBJECT_ID {}}
  foreach var [list OBJECT_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_object__initialize_attributes($_OBJECT_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• name (scripted, public)

   xo::db::sql::acs_object name [ -dbn dbn ] -object_id object_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {OBJECT_ID {}}
  foreach var [list OBJECT_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_object__name($_OBJECT_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::acs_object new [ -dbn dbn ] [ -object_id object_id ] \
      [ -object_type object_type ] [ -creation_date creation_date ] \
      [ -creation_user creation_user ] [ -creation_ip creation_ip ] \
      [ -context_id context_id ] \
      [ -security_inherit_p security_inherit_p ] [ -title title ] \
      [ -package_id package_id ] [ -childof childof ]

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id

  (optional)

  -object_type

  (defaults to "acs_object") (optional)

  -creation_date

  (defaults to "now()") (optional)

  -creation_user

  (optional)

  -creation_ip

  (optional)

  -context_id

  (optional)

  -security_inherit_p

  (defaults to "t") (optional)

  -title

  (optional)

  -package_id

  (optional)

  -childof

  (optional)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  xotcl_core_tutorial_2

  #function_args: {OBJECT_ID null} {OBJECT_TYPE acs_object} {CREATION_DATE now()} {CREATION_USER null} {CREATION_IP null} {CONTEXT_ID null} {SECURITY_INHERIT_P t} {TITLE null} {PACKAGE_ID null}
  foreach var [list OBJECT_ID OBJECT_TYPE CREATION_DATE CREATION_USER CREATION_IP CONTEXT_ID SECURITY_INHERIT_P TITLE PACKAGE_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_object__new($_OBJECT_ID, $_OBJECT_TYPE, $_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_CONTEXT_ID, $_SECURITY_INHERIT_P, $_TITLE, $_PACKAGE_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• package_id (scripted, public)

   xo::db::sql::acs_object package_id [ -dbn dbn ] -object_id object_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {OBJECT_ID {}}
  foreach var [list OBJECT_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_object__package_id($_OBJECT_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• set_attribute (scripted, public)

   xo::db::sql::acs_object set_attribute [ -dbn dbn ] \
      -object_id_in object_id_in  -attribute_name_in attribute_name_in  \
      -value_in value_in 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id_in

  (required)

  -attribute_name_in

  (required)

  -value_in

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {OBJECT_ID_IN {}} {ATTRIBUTE_NAME_IN {}} {VALUE_IN {}}
  foreach var [list OBJECT_ID_IN ATTRIBUTE_NAME_IN VALUE_IN]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select acs_object__set_attribute($_OBJECT_ID_IN, $_ATTRIBUTE_NAME_IN, $_VALUE_IN) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• update_last_modified (scripted, public)

   xo::db::sql::acs_object update_last_modified [ -dbn dbn ] \
      -object_id object_id  -modifying_user modifying_user  \
      -modifying_ip modifying_ip  [ -last_modified last_modified ]

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -object_id

  (required)

  -modifying_user

  (required)

  -modifying_ip

  (required)

  -last_modified

  (defaults to "now()") (optional)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {OBJECT_ID {}} {MODIFYING_USER {}} {MODIFYING_IP {}} {LAST_MODIFIED now()}
  foreach var [list OBJECT_ID MODIFYING_USER MODIFYING_IP LAST_MODIFIED]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select acs_object__update_last_modified($_OBJECT_ID, $_MODIFYING_USER, $_MODIFYING_IP, $_LAST_MODIFIED) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

---