::xo::db::Class ::xo::db::sql::acs

Methods: All Methods Documented Methods Hide Methods
Source: Display Source Hide Source
Variables: Show Variables Hide Variables

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

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

create ...

Defined in

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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 (optional, defaults to "acs_object")
-creation_date (optional, defaults to "now()")
-creation_user (optional)
-creation_ip (optional)
-context_id (optional)
-security_inherit_p (optional, defaults to "t")
-title (optional)
-package_id (optional)
-childof (optional)

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)

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)

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 (optional, defaults to "now()")

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 ]
}

Methods: All Methods Documented Methods Hide Methods
Source: Display Source Hide Source
Variables: Show Variables Hide Variables