---

Class ::xo::db::sql::acs_reference

::xo::db::sql::acs_reference create ...

Class Relations

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

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

Methods (to be applied on the object)

• delete (scripted, public)

   xo::db::sql::acs_reference delete [ -dbn dbn ] \
      -repository_id repository_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -repository_id

  (required)

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

  Testcases:

  No testcase defined.

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

• is_expired_p (scripted, public)

   xo::db::sql::acs_reference is_expired_p [ -dbn dbn ] \
      -repository_id repository_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -repository_id

  (required)

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

  Testcases:

  No testcase defined.

  #function_args: {REPOSITORY_ID {}}
  foreach var [list REPOSITORY_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_reference__is_expired_p($_REPOSITORY_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_reference new [ -dbn dbn ] \
      [ -repository_id repository_id ] -table_name table_name  \
      [ -internal_data_p internal_data_p ] \
      [ -package_name package_name ] [ -last_update last_update ] \
      [ -source source ] [ -source_url source_url ] \
      [ -effective_date effective_date ] [ -expiry_date expiry_date ] \
      [ -maintainer_id maintainer_id ] [ -notes notes ] \
      [ -first_names first_names ] [ -last_name last_name ] \
      [ -creation_ip creation_ip ] [ -object_type object_type ] \
      [ -creation_user creation_user ] [ -childof childof ]

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -repository_id

  (optional)

  -table_name

  (required)

  -internal_data_p

  (defaults to ""f"") (optional)

  -package_name

  (optional)

  -last_update

  (defaults to "sysdate") (optional)

  -source

  (optional)

  -source_url

  (optional)

  -effective_date

  (defaults to "sysdate") (optional)

  -expiry_date

  (optional)

  -maintainer_id

  (optional)

  -notes

  (defaults to "null (not Oracle empty_blob())") (optional)

  -first_names

  (optional)

  -last_name

  (optional)

  -creation_ip

  (optional)

  -object_type

  (defaults to ""acs_reference_repository"") (optional)

  -creation_user

  (optional)

  -childof

  (optional)

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

  Testcases:

  No testcase defined.

  #function_args: {REPOSITORY_ID null} {TABLE_NAME {}} {INTERNAL_DATA_P {"f"}} {PACKAGE_NAME null} {LAST_UPDATE sysdate} {SOURCE null} {SOURCE_URL null} {EFFECTIVE_DATE sysdate} {EXPIRY_DATE null} {MAINTAINER_ID null} {NOTES {null (not Oracle empty_blob())}} {FIRST_NAMES null} {LAST_NAME null} {CREATION_IP null} {OBJECT_TYPE {"acs_reference_repository"}} {CREATION_USER null}
  foreach var [list REPOSITORY_ID TABLE_NAME INTERNAL_DATA_P PACKAGE_NAME LAST_UPDATE SOURCE SOURCE_URL EFFECTIVE_DATE EXPIRY_DATE MAINTAINER_ID NOTES FIRST_NAMES LAST_NAME CREATION_IP OBJECT_TYPE CREATION_USER]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select acs_reference__new($_REPOSITORY_ID, $_TABLE_NAME, $_INTERNAL_DATA_P, $_PACKAGE_NAME, $_LAST_UPDATE, $_SOURCE, $_SOURCE_URL, $_EFFECTIVE_DATE, $_EXPIRY_DATE, $_MAINTAINER_ID, $_NOTES, $_FIRST_NAMES, $_LAST_NAME, $_CREATION_IP, $_OBJECT_TYPE, $_CREATION_USER) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

---