---

Class ::xo::db::sql::apm_package_version

::xo::db::sql::apm_package_version create ...

Defined in

Class Relations

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

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

Methods (to be applied on the object)

• add_dependency (scripted, public)

   xo::db::sql::apm_package_version add_dependency [ -dbn dbn ] \
      -dependency_type dependency_type  [ -dependency_id dependency_id ] \
      -version_id version_id  -dependency_uri dependency_uri  \
      -dependency_version dependency_version 

  Automatically generated method

  Switches:

  -dbn (optional)

  -dependency_type (required)

  -dependency_id (optional)

  -version_id (required)

  -dependency_uri (required)

  -dependency_version (required)

  Testcases:

  No testcase defined.

  #function_args: {DEPENDENCY_TYPE {}} {DEPENDENCY_ID null} {VERSION_ID {}} {DEPENDENCY_URI {}} {DEPENDENCY_VERSION {}}
  foreach var [list DEPENDENCY_TYPE DEPENDENCY_ID VERSION_ID DEPENDENCY_URI DEPENDENCY_VERSION]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select apm_package_version__add_dependency($_DEPENDENCY_TYPE, $_DEPENDENCY_ID, $_VERSION_ID, $_DEPENDENCY_URI, $_DEPENDENCY_VERSION) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• add_interface (scripted, public)

   xo::db::sql::apm_package_version add_interface [ -dbn dbn ] \
      [ -interface_id interface_id ] -version_id version_id  \
      -interface_uri interface_uri  \
      -interface_version interface_version 

  Automatically generated method

  Switches:

  -dbn (optional)

  -interface_id (optional)

  -version_id (required)

  -interface_uri (required)

  -interface_version (required)

  Testcases:

  No testcase defined.

  #function_args: {INTERFACE_ID null} {VERSION_ID {}} {INTERFACE_URI {}} {INTERFACE_VERSION {}}
  foreach var [list INTERFACE_ID VERSION_ID INTERFACE_URI INTERFACE_VERSION]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select apm_package_version__add_interface($_INTERFACE_ID, $_VERSION_ID, $_INTERFACE_URI, $_INTERFACE_VERSION) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• copy (scripted, public)

   xo::db::sql::apm_package_version copy [ -dbn dbn ] \
      -version_id version_id  [ -new_version_id new_version_id ] \
      -new_version_name new_version_name  \
      -new_version_uri new_version_uri  -copy_owners_p copy_owners_p 

  Automatically generated method

  Switches:

  -dbn (optional)

  -version_id (required)

  -new_version_id (optional)

  -new_version_name (required)

  -new_version_uri (required)

  -copy_owners_p (required)

  Testcases:

  No testcase defined.

  #function_args: {VERSION_ID {}} {NEW_VERSION_ID null} {NEW_VERSION_NAME {}} {NEW_VERSION_URI {}} {COPY_OWNERS_P {}}
  foreach var [list VERSION_ID NEW_VERSION_ID NEW_VERSION_NAME NEW_VERSION_URI COPY_OWNERS_P]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select apm_package_version__copy($_VERSION_ID, $_NEW_VERSION_ID, $_NEW_VERSION_NAME, $_NEW_VERSION_URI, $_COPY_OWNERS_P) 
      "
  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::apm_package_version delete [ -dbn dbn ] \
      -version_id version_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -version_id (required)

  Testcases:

  No testcase defined.

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

• disable (scripted, public)

   xo::db::sql::apm_package_version disable [ -dbn dbn ] \
      -version_id version_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -version_id (required)

  Testcases:

  No testcase defined.

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

• edit (scripted, public)

   xo::db::sql::apm_package_version edit [ -dbn dbn ] \
      [ -new_version_id new_version_id ] -version_id version_id  \
      [ -version_name version_name ] -version_uri version_uri  \
      -summary summary  -description_format description_format  \
      -description description  -release_date release_date  \
      -vendor vendor  -vendor_uri vendor_uri  -auto_mount auto_mount  \
      [ -installed_p installed_p ] \
      [ -data_model_loaded_p data_model_loaded_p ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -new_version_id (optional)

  -version_id (required)

  -version_name (optional)

  -version_uri (required)

  -summary (required)

  -description_format (required)

  -description (required)

  -release_date (required)

  -vendor (required)

  -vendor_uri (required)

  -auto_mount (required)

  -installed_p (optional, defaults to "f")

  -data_model_loaded_p (optional, defaults to "f")

  Testcases:

  No testcase defined.

  #function_args: {NEW_VERSION_ID null} {VERSION_ID {}} {VERSION_NAME null} {VERSION_URI {}} {SUMMARY {}} {DESCRIPTION_FORMAT {}} {DESCRIPTION {}} {RELEASE_DATE {}} {VENDOR {}} {VENDOR_URI {}} {AUTO_MOUNT {}} {INSTALLED_P f} {DATA_MODEL_LOADED_P f}
  foreach var [list NEW_VERSION_ID VERSION_ID VERSION_NAME VERSION_URI SUMMARY DESCRIPTION_FORMAT DESCRIPTION RELEASE_DATE VENDOR VENDOR_URI AUTO_MOUNT INSTALLED_P DATA_MODEL_LOADED_P]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select apm_package_version__edit($_NEW_VERSION_ID, $_VERSION_ID, $_VERSION_NAME, $_VERSION_URI, $_SUMMARY, $_DESCRIPTION_FORMAT, $_DESCRIPTION, $_RELEASE_DATE, $_VENDOR, $_VENDOR_URI, $_AUTO_MOUNT, $_INSTALLED_P, $_DATA_MODEL_LOADED_P) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• enable (scripted, public)

   xo::db::sql::apm_package_version enable [ -dbn dbn ] \
      -version_id version_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -version_id (required)

  Testcases:

  No testcase defined.

  #function_args: {VERSION_ID {}}
  foreach var [list VERSION_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select apm_package_version__enable($_VERSION_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::apm_package_version new [ -dbn dbn ] \
      [ -version_id version_id ] -package_key package_key  \
      [ -version_name version_name ] -version_uri version_uri  \
      -summary summary  -description_format description_format  \
      -description description  -release_date release_date  \
      -vendor vendor  -vendor_uri vendor_uri  -auto_mount auto_mount  \
      [ -installed_p installed_p ] \
      [ -data_model_loaded_p data_model_loaded_p ] [ -childof childof ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -version_id (optional)

  -package_key (required)

  -version_name (optional)

  -version_uri (required)

  -summary (required)

  -description_format (required)

  -description (required)

  -release_date (required)

  -vendor (required)

  -vendor_uri (required)

  -auto_mount (required)

  -installed_p (optional, defaults to "f")

  -data_model_loaded_p (optional, defaults to "f")

  -childof (optional)

  Testcases:

  No testcase defined.

  #function_args: {VERSION_ID null} {PACKAGE_KEY {}} {VERSION_NAME null} {VERSION_URI {}} {SUMMARY {}} {DESCRIPTION_FORMAT {}} {DESCRIPTION {}} {RELEASE_DATE {}} {VENDOR {}} {VENDOR_URI {}} {AUTO_MOUNT {}} {INSTALLED_P f} {DATA_MODEL_LOADED_P f}
  foreach var [list VERSION_ID PACKAGE_KEY VERSION_NAME VERSION_URI SUMMARY DESCRIPTION_FORMAT DESCRIPTION RELEASE_DATE VENDOR VENDOR_URI AUTO_MOUNT INSTALLED_P DATA_MODEL_LOADED_P]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select apm_package_version__new($_VERSION_ID, $_PACKAGE_KEY, $_VERSION_NAME, $_VERSION_URI, $_SUMMARY, $_DESCRIPTION_FORMAT, $_DESCRIPTION, $_RELEASE_DATE, $_VENDOR, $_VENDOR_URI, $_AUTO_MOUNT, $_INSTALLED_P, $_DATA_MODEL_LOADED_P) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• remove_dependency (scripted, public)

   xo::db::sql::apm_package_version remove_dependency [ -dbn dbn ] \
      -dependency_uri dependency_uri  \
      -dependency_version dependency_version  -version_id version_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -dependency_uri (required)

  -dependency_version (required)

  -version_id (required)

  Testcases:

  No testcase defined.

  #function_args: {DEPENDENCY_URI {}} {DEPENDENCY_VERSION {}} {VERSION_ID {}}
  foreach var [list DEPENDENCY_URI DEPENDENCY_VERSION VERSION_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select apm_package_version__remove_dependency($_DEPENDENCY_URI, $_DEPENDENCY_VERSION, $_VERSION_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• remove_interface (scripted, public)

   xo::db::sql::apm_package_version remove_interface [ -dbn dbn ] \
      -interface_uri interface_uri  \
      -interface_version interface_version  -version_id version_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -interface_uri (required)

  -interface_version (required)

  -version_id (required)

  Testcases:

  No testcase defined.

  #function_args: {INTERFACE_URI {}} {INTERFACE_VERSION {}} {VERSION_ID {}}
  foreach var [list INTERFACE_URI INTERFACE_VERSION VERSION_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select apm_package_version__remove_interface($_INTERFACE_URI, $_INTERFACE_VERSION, $_VERSION_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• sortable_version_name (scripted, public)

   xo::db::sql::apm_package_version sortable_version_name [ -dbn dbn ] \
      -version_name version_name 

  Automatically generated method

  Switches:

  -dbn (optional)

  -version_name (required)

  Testcases:

  No testcase defined.

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

• upgrade (scripted, public)

   xo::db::sql::apm_package_version upgrade [ -dbn dbn ] \
      -version_id version_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -version_id (required)

  Testcases:

  No testcase defined.

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

• upgrade_p (scripted, public)

   xo::db::sql::apm_package_version upgrade_p [ -dbn dbn ] -path path  \
      -initial_version_name initial_version_name  \
      -final_version_name final_version_name 

  Automatically generated method

  Switches:

  -dbn (optional)

  -path (required)

  -initial_version_name (required)

  -final_version_name (required)

  Testcases:

  No testcase defined.

  #function_args: {PATH {}} {INITIAL_VERSION_NAME {}} {FINAL_VERSION_NAME {}}
  foreach var [list PATH INITIAL_VERSION_NAME FINAL_VERSION_NAME]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select apm_package_version__upgrade_p($_PATH, $_INITIAL_VERSION_NAME, $_FINAL_VERSION_NAME) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• version_name_greater (scripted, public)

   xo::db::sql::apm_package_version version_name_greater [ -dbn dbn ] \
      -version_name_one version_name_one  \
      -version_name_two version_name_two 

  Automatically generated method

  Switches:

  -dbn (optional)

  -version_name_one (required)

  -version_name_two (required)

  Testcases:

  No testcase defined.

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

---