---

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

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

Defined in

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)

  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)

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

  -package_name (optional)

  -last_update (optional, defaults to "sysdate")

  -source (optional)

  -source_url (optional)

  -effective_date (optional, defaults to "sysdate")

  -expiry_date (optional)

  -maintainer_id (optional)

  -notes (optional, defaults to "null (not Oracle empty_blob())")

  -first_names (optional)

  -last_name (optional)

  -creation_ip (optional)

  -object_type (optional, defaults to ""acs_reference_repository"")

  -creation_user (optional)

  -childof (optional)

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

---