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::acs_object

Class Hierarchy of ::xo::db::sql::acs_object

Class Relations

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

Methods

  • proc check_context_index (public)

    ::xo::db::sql::acs_object[i] check_context_index [ -dbn dbn ] \
        -check_context_index__object_id check_context_index__object_id  \
        -check_context_index__ancestor_id check_context_index__ancestor_id  \
        -check_context_index__n_generations check_context_index__n_generations 
    Automatically generated method

    Switches:
    -dbn (optional)
    -check_context_index__object_id (required)
    -check_context_index__ancestor_id (required)
    -check_context_index__n_generations (required)
    ::622873 proc check_context_index {{-dbn {}} -check_context_index__object_id:required -check_context_index__ancestor_id:required -check_context_index__n_generations:required} {
            #function_args: {CHECK_CONTEXT_INDEX__OBJECT_ID {}} {CHECK_CONTEXT_INDEX__ANCESTOR_ID {}} {CHECK_CONTEXT_INDEX__N_GENERATIONS {}}
            foreach var [list CHECK_CONTEXT_INDEX__OBJECT_ID CHECK_CONTEXT_INDEX__ANCESTOR_ID CHECK_CONTEXT_INDEX__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($_CHECK_CONTEXT_INDEX__OBJECT_ID, $_CHECK_CONTEXT_INDEX__ANCESTOR_ID, $_CHECK_CONTEXT_INDEX__N_GENERATIONS)
          "
            db_with_handle -dbn $dbn db {
              #ns_log notice "--sql=$sql"
              return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
            }
          }
    
  • proc check_object_ancestors (public)

    ::xo::db::sql::acs_object[i] 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)
    ::622873 proc check_object_ancestors {{-dbn {}} -object_id:required -ancestor_id:required -n_generations:required} {
            #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 ]
            }
          }
    
  • proc check_object_descendants (public)

    ::xo::db::sql::acs_object[i] 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)
    ::622873 proc check_object_descendants {{-dbn {}} -object_id:required -descendant_id:required -n_generations:required} {
            #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 ]
            }
          }
    
  • proc check_path (public)

    ::xo::db::sql::acs_object[i] check_path [ -dbn dbn ] \
        -check_path__object_id check_path__object_id  \
        -check_path__ancestor_id check_path__ancestor_id 
    Automatically generated method

    Switches:
    -dbn (optional)
    -check_path__object_id (required)
    -check_path__ancestor_id (required)
    ::622873 proc check_path {{-dbn {}} -check_path__object_id:required -check_path__ancestor_id:required} {
            #function_args: {CHECK_PATH__OBJECT_ID {}} {CHECK_PATH__ANCESTOR_ID {}}
            foreach var [list CHECK_PATH__OBJECT_ID CHECK_PATH__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($_CHECK_PATH__OBJECT_ID, $_CHECK_PATH__ANCESTOR_ID)
          "
            db_with_handle -dbn $dbn db {
              #ns_log notice "--sql=$sql"
              return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
            }
          }
    
  • proc check_representation (public)

    ::xo::db::sql::acs_object[i] check_representation [ -dbn dbn ] \
        -check_representation__object_id check_representation__object_id 
    Automatically generated method

    Switches:
    -dbn (optional)
    -check_representation__object_id (required)
    ::622873 proc check_representation {{-dbn {}} -check_representation__object_id:required} {
            #function_args: {CHECK_REPRESENTATION__OBJECT_ID {}}
            foreach var [list CHECK_REPRESENTATION__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__check_representation($_CHECK_REPRESENTATION__OBJECT_ID)
          "
            db_with_handle -dbn $dbn db {
              #ns_log notice "--sql=$sql"
              return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
            }
          }
    
  • proc default_name (public)

    ::xo::db::sql::acs_object[i] default_name [ -dbn dbn ] \
        -default_name__object_id default_name__object_id 
    Automatically generated method

    Switches:
    -dbn (optional)
    -default_name__object_id (required)
    ::622873 proc default_name {{-dbn {}} -default_name__object_id:required} {
            #function_args: {DEFAULT_NAME__OBJECT_ID {}}
            foreach var [list DEFAULT_NAME__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($_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 ]
            }
          }
    
  • proc delete (public)

    ::xo::db::sql::acs_object[i] delete [ -dbn dbn ] -object_id object_id 
    Automatically generated method

    Switches:
    -dbn (optional)
    -object_id (required)
    ::622873 proc delete {{-dbn {}} -object_id:required} {
            #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 ]
            }
          }
    
  • proc get_attr_storage_column (public)

    ::xo::db::sql::acs_object[i] get_attr_storage_column [ -dbn dbn ] \
        -v_vals v_vals 
    Automatically generated method

    Switches:
    -dbn (optional)
    -v_vals (required)
    ::622873 proc get_attr_storage_column {{-dbn {}} -v_vals:required} {
            #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 ]
            }
          }
    
  • proc get_attr_storage_sql (public)

    ::xo::db::sql::acs_object[i] get_attr_storage_sql [ -dbn dbn ] \
        -v_vals v_vals 
    Automatically generated method

    Switches:
    -dbn (optional)
    -v_vals (required)
    ::622873 proc get_attr_storage_sql {{-dbn {}} -v_vals:required} {
            #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 ]
            }
          }
    
  • proc get_attr_storage_table (public)

    ::xo::db::sql::acs_object[i] get_attr_storage_table [ -dbn dbn ] \
        -v_vals v_vals 
    Automatically generated method

    Switches:
    -dbn (optional)
    -v_vals (required)
    ::622873 proc get_attr_storage_table {{-dbn {}} -v_vals:required} {
            #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 ]
            }
          }
    
  • proc get_attribute (public)

    ::xo::db::sql::acs_object[i] 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)
    ::622873 proc get_attribute {{-dbn {}} -object_id_in:required -attribute_name_in:required} {
            #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 ]
            }
          }
    
  • proc get_attribute_storage (public)

    ::xo::db::sql::acs_object[i] 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)
    ::622873 proc get_attribute_storage {{-dbn {}} -object_id_in:required -attribute_name_in:required} {
            #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 ]
            }
          }
    
  • proc initialize_attributes (public)

    ::xo::db::sql::acs_object[i] initialize_attributes [ -dbn dbn ] \
        -initialize_attributes__object_id initialize_attributes__object_id 
    Automatically generated method

    Switches:
    -dbn (optional)
    -initialize_attributes__object_id (required)
    ::622873 proc initialize_attributes {{-dbn {}} -initialize_attributes__object_id:required} {
            #function_args: {INITIALIZE_ATTRIBUTES__OBJECT_ID {}}
            foreach var [list INITIALIZE_ATTRIBUTES__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($_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 ]
            }
          }
    
  • proc name (public)

    ::xo::db::sql::acs_object[i] name [ -dbn dbn ] \
        -name__object_id name__object_id 
    Automatically generated method

    Switches:
    -dbn (optional)
    -name__object_id (required)
    ::622873 proc name {{-dbn {}} -name__object_id:required} {
            #function_args: {NAME__OBJECT_ID {}}
            foreach var [list NAME__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($_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 ]
            }
          }
    
  • proc new (public)

    ::xo::db::sql::acs_object[i] 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)
    ::622873 proc new {{-dbn {}} -object_id {-object_type acs_object} {-creation_date now()} -creation_user -creation_ip -context_id {-security_inherit_p t} -title -package_id -childof} {
            #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 ]
            }
          }
    
  • proc package_id (public)

    ::xo::db::sql::acs_object[i] package_id [ -dbn dbn ] \
        -object_id object_id 
    Automatically generated method

    Switches:
    -dbn (optional)
    -object_id (required)
    ::622873 proc package_id {{-dbn {}} -object_id:required} {
            #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 ]
            }
          }
    
  • proc set_attribute (public)

    ::xo::db::sql::acs_object[i] 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)
    ::622873 proc set_attribute {{-dbn {}} -object_id_in:required -attribute_name_in:required -value_in:required} {
            #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 ]
            }
          }
    
  • proc update_last_modified (public)

    ::xo::db::sql::acs_object[i] 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)
    ::622873 proc update_last_modified {{-dbn {}} -object_id:required -modifying_user:required -modifying_ip:required {-last_modified now()}} {
            #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: Source: Variables:
[All Methods | Documented Methods | Hide Methods] [Display Source | Hide Source] [Show Variables | Hide Variables]