%3 ::xotcl::Object ::xotcl::Object ::xo::db::sql::etp ::xo::db::sql::etp → create_extlink → create_new_revision → create_page → create_symlink → get_attribute_value → get_description → get_folder_id → get_relative_url → get_title ::xo::db::sql::etp->::xotcl::Object

Class ::xo::db::sql::etp

::xo::db::sql::etp[i] create ...

Class Relations

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

Methods (to be applied on the object)

  • create_extlink (scripted, public)

     xo::db::sql::etp[i] create_extlink [ -dbn dbn ] [ -item_id item_id ] \
    -package_id package_id  -url url  -title title  \
    -description description

    Automatically generated method

    Switches:
    -dbn
    (optional)
    -item_id
    (optional)
    -package_id
    (required)
    -url
    (required)
    -title
    (required)
    -description
    (required)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::etp proc create_extlink xo::db::sql::etp proc create_extlink xo::db::sql::etp proc create_extlink->db_with_handle

    Testcases:
    No testcase defined.
    #function_args: {ITEM_ID null} {PACKAGE_ID {}} {URL {}} {TITLE {}} {DESCRIPTION {}}
foreach var [list ITEM_ID PACKAGE_ID URL TITLE DESCRIPTION]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select etp__create_extlink($_ITEM_ID, $_PACKAGE_ID, $_URL, $_TITLE, $_DESCRIPTION) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • create_new_revision (scripted, public)

     xo::db::sql::etp[i] create_new_revision [ -dbn dbn ] \
    -package_id package_id  -name name  -user_id user_id  \
    -revision_id revision_id

    Automatically generated method

    Switches:
    -dbn
    (optional)
    -package_id
    (required)
    -name
    (required)
    -user_id
    (required)
    -revision_id
    (required)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::etp proc create_new_revision xo::db::sql::etp proc create_new_revision xo::db::sql::etp proc create_new_revision->db_with_handle

    Testcases:
    No testcase defined.
    #function_args: {PACKAGE_ID {}} {NAME {}} {USER_ID {}} {REVISION_ID {}}
foreach var [list PACKAGE_ID NAME USER_ID REVISION_ID]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select etp__create_new_revision($_PACKAGE_ID, $_NAME, $_USER_ID, $_REVISION_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • create_page (scripted, public)

     xo::db::sql::etp[i] create_page [ -dbn dbn ] -item_id item_id  \
    -package_id package_id  -name name  -title title  \
    [ -content_type content_type ]

    Automatically generated method

    Switches:
    -dbn
    (optional)
    -item_id
    (required)
    -package_id
    (required)
    -name
    (required)
    -title
    (required)
    -content_type
    (optional)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::etp proc create_page xo::db::sql::etp proc create_page xo::db::sql::etp proc create_page->db_with_handle

    Testcases:
    No testcase defined.
    #function_args: {ITEM_ID {}} {PACKAGE_ID {}} {NAME {}} {TITLE {}} {CONTENT_TYPE null}
foreach var [list ITEM_ID PACKAGE_ID NAME TITLE CONTENT_TYPE]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select etp__create_page($_ITEM_ID, $_PACKAGE_ID, $_NAME, $_TITLE, $_CONTENT_TYPE) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • create_symlink (scripted, public)

     xo::db::sql::etp[i] create_symlink [ -dbn dbn ] -package_id package_id  \
    -target_id target_id

    Automatically generated method

    Switches:
    -dbn
    (optional)
    -package_id
    (required)
    -target_id
    (required)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::etp proc create_symlink xo::db::sql::etp proc create_symlink xo::db::sql::etp proc create_symlink->db_with_handle

    Testcases:
    No testcase defined.
    #function_args: {PACKAGE_ID {}} {TARGET_ID {}}
foreach var [list PACKAGE_ID TARGET_ID]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select etp__create_symlink($_PACKAGE_ID, $_TARGET_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • get_attribute_value (scripted, public)

     xo::db::sql::etp[i] get_attribute_value [ -dbn dbn ] \
    -object_id object_id  -attribute_id attribute_id

    Automatically generated method

    Switches:
    -dbn
    (optional)
    -object_id
    (required)
    -attribute_id
    (required)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::etp proc get_attribute_value xo::db::sql::etp proc get_attribute_value xo::db::sql::etp proc get_attribute_value->db_with_handle

    Testcases:
    No testcase defined.
    #function_args: {OBJECT_ID {}} {ATTRIBUTE_ID {}}
foreach var [list OBJECT_ID ATTRIBUTE_ID]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select etp__get_attribute_value($_OBJECT_ID, $_ATTRIBUTE_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • get_description (scripted, public)

     xo::db::sql::etp[i] get_description [ -dbn dbn ] -item_id item_id  \
    -revision_description revision_description

    Automatically generated method

    Switches:
    -dbn
    (optional)
    -item_id
    (required)
    -revision_description
    (required)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::etp proc get_description xo::db::sql::etp proc get_description xo::db::sql::etp proc get_description->db_with_handle

    Testcases:
    No testcase defined.
    #function_args: {ITEM_ID {}} {REVISION_DESCRIPTION {}}
foreach var [list ITEM_ID REVISION_DESCRIPTION]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select etp__get_description($_ITEM_ID, $_REVISION_DESCRIPTION) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • get_folder_id (scripted, public)

     xo::db::sql::etp[i] get_folder_id [ -dbn dbn ] -package_id package_id

    Automatically generated method

    Switches:
    -dbn
    (optional)
    -package_id
    (required)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::etp proc get_folder_id xo::db::sql::etp proc get_folder_id xo::db::sql::etp proc get_folder_id->db_with_handle

    Testcases:
    No testcase defined.
    #function_args: {PACKAGE_ID {}}
foreach var [list 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 etp__get_folder_id($_PACKAGE_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • get_relative_url (scripted, public)

     xo::db::sql::etp[i] get_relative_url [ -dbn dbn ] -item_id item_id  \
    -name name

    Automatically generated method

    Switches:
    -dbn
    (optional)
    -item_id
    (required)
    -name
    (required)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::etp proc get_relative_url xo::db::sql::etp proc get_relative_url xo::db::sql::etp proc get_relative_url->db_with_handle

    Testcases:
    No testcase defined.
    #function_args: {ITEM_ID {}} {NAME {}}
foreach var [list ITEM_ID NAME]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select etp__get_relative_url($_ITEM_ID, $_NAME) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • get_title (scripted, public)

     xo::db::sql::etp[i] get_title [ -dbn dbn ] -item_id item_id  \
    -revision_title revision_title

    Automatically generated method

    Switches:
    -dbn
    (optional)
    -item_id
    (required)
    -revision_title
    (required)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::etp proc get_title xo::db::sql::etp proc get_title xo::db::sql::etp proc get_title->db_with_handle

    Testcases:
    No testcase defined.
    #function_args: {ITEM_ID {}} {REVISION_TITLE {}}
foreach var [list ITEM_ID REVISION_TITLE]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select etp__get_title($_ITEM_ID, $_REVISION_TITLE) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}