%3 ::xotcl::Object ::xotcl::Object → getExitHandler → setExitHandler → unsetExitHandler __object_configureparameter __timediff abstract ad_doc ad_forward ad_proc asHTML check class db_0or1row db_1row debug destroy_on_cleanup ds extractConfigureArg filter filtersearch forward hasclass init invar isclass ismetaclass ismixin isobject istype log method mixin mset msg parametercmd proc procsearch qn self serialize set_instance_vars_defaults unknown vwait www-show-object ::xo::db::sql::content_revision ::xo::db::sql::content_revision → content_copy → copy → copy_attributes → del → delete → get_content → get_number → is_latest → is_live → new → revision_name → to_html → to_temporary_clob ::xo::db::sql::content_revision->::xotcl::Object

Class ::xo::db::sql::content_revision

::xo::db::sql::content_revision[i] create ...
Defined in

Class Relations

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

Methods (to be applied on the object)

  • content_copy (scripted, public)

     xo::db::sql::content_revision[i] content_copy [ -dbn dbn ] \
    -revision_id revision_id  [ -revision_id_dest revision_id_dest ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -revision_id (required)
    -revision_id_dest (optional)

    Testcases:
    No testcase defined.
    #function_args: {REVISION_ID {}} {REVISION_ID_DEST null}
foreach var [list REVISION_ID REVISION_ID_DEST]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select content_revision__content_copy($_REVISION_ID, $_REVISION_ID_DEST) 
    "
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::content_revision[i] copy [ -dbn dbn ] \
    -revision_id revision_id  [ -copy_id copy_id ] \
    [ -target_item_id target_item_id ] \
    [ -creation_user creation_user ] [ -creation_ip creation_ip ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -revision_id (required)
    -copy_id (optional)
    -target_item_id (optional)
    -creation_user (optional)
    -creation_ip (optional)

    Testcases:
    No testcase defined.
    #function_args: {REVISION_ID {}} {COPY_ID null} {TARGET_ITEM_ID null} {CREATION_USER null} {CREATION_IP null}
foreach var [list REVISION_ID COPY_ID TARGET_ITEM_ID CREATION_USER CREATION_IP]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select content_revision__copy($_REVISION_ID, $_COPY_ID, $_TARGET_ITEM_ID, $_CREATION_USER, $_CREATION_IP) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • copy_attributes (scripted, public)

     xo::db::sql::content_revision[i] copy_attributes [ -dbn dbn ] \
    -content_type content_type  -revision_id revision_id  \
    -copy_id copy_id

    Automatically generated method

    Switches:
    -dbn (optional)
    -content_type (required)
    -revision_id (required)
    -copy_id (required)

    Testcases:
    No testcase defined.
    #function_args: {CONTENT_TYPE {}} {REVISION_ID {}} {COPY_ID {}}
foreach var [list CONTENT_TYPE REVISION_ID COPY_ID]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select content_revision__copy_attributes($_CONTENT_TYPE, $_REVISION_ID, $_COPY_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • del (scripted, public)

     xo::db::sql::content_revision[i] del [ -dbn dbn ] \
    -revision_id revision_id

    Automatically generated method

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

    Testcases:
    No testcase defined.
    #function_args: {REVISION_ID {}}
foreach var [list 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 content_revision__del($_REVISION_ID) 
    "
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::content_revision[i] delete [ -dbn dbn ] \
    -revision_id revision_id

    Automatically generated method

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

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

  • get_content (scripted, public)

     xo::db::sql::content_revision[i] get_content [ -dbn dbn ] \
    -revision_id revision_id

    Automatically generated method

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

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

  • get_number (scripted, public)

     xo::db::sql::content_revision[i] get_number [ -dbn dbn ] \
    -revision_id revision_id

    Automatically generated method

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

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

  • is_latest (scripted, public)

     xo::db::sql::content_revision[i] is_latest [ -dbn dbn ] \
    -revision_id revision_id

    Automatically generated method

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

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

  • is_live (scripted, public)

     xo::db::sql::content_revision[i] is_live [ -dbn dbn ] \
    -revision_id revision_id

    Automatically generated method

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

    Testcases:
    No testcase defined.
    #function_args: {REVISION_ID {}}
foreach var [list 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 content_revision__is_live($_REVISION_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::content_revision[i] new [ -dbn dbn ] -title title  \
    [ -description description ] [ -publish_date publish_date ] \
    [ -mime_type mime_type ] [ -nls_language nls_language ] \
    [ -text text ] -item_id item_id  [ -revision_id revision_id ] \
    [ -creation_date creation_date ] [ -creation_user creation_user ] \
    [ -creation_ip creation_ip ] [ -content_length content_length ] \
    [ -package_id package_id ] [ -childof childof ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -title (required)
    -description (optional)
    -publish_date (optional, defaults to "now()")
    -mime_type (optional, defaults to "text/plain")
    -nls_language (optional)
    -text (optional, defaults to " ")
    -item_id (required)
    -revision_id (optional)
    -creation_date (optional, defaults to "now()")
    -creation_user (optional)
    -creation_ip (optional)
    -content_length (optional)
    -package_id (optional)
    -childof (optional)

    Testcases:
    No testcase defined.
    #function_args: {TITLE {}} {DESCRIPTION null} {PUBLISH_DATE now()} {MIME_TYPE text/plain} {NLS_LANGUAGE null} {TEXT { }} {ITEM_ID {}} {REVISION_ID null} {CREATION_DATE now()} {CREATION_USER null} {CREATION_IP null} {CONTENT_LENGTH null} {PACKAGE_ID null}
foreach var [list TITLE DESCRIPTION PUBLISH_DATE MIME_TYPE NLS_LANGUAGE TEXT ITEM_ID REVISION_ID CREATION_DATE CREATION_USER CREATION_IP CONTENT_LENGTH 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 content_revision__new($_TITLE, $_DESCRIPTION, $_PUBLISH_DATE, $_MIME_TYPE, $_NLS_LANGUAGE, $_TEXT, $_ITEM_ID, $_REVISION_ID, $_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_CONTENT_LENGTH, $_PACKAGE_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • revision_name (scripted, public)

     xo::db::sql::content_revision[i] revision_name [ -dbn dbn ] \
    -revision_id revision_id

    Automatically generated method

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

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

  • to_html (scripted, public)

     xo::db::sql::content_revision[i] to_html [ -dbn dbn ] \
    -revision_id revision_id

    Automatically generated method

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

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

  • to_temporary_clob (scripted, public)

     xo::db::sql::content_revision[i] to_temporary_clob [ -dbn dbn ] \
    -revision_id revision_id

    Automatically generated method

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

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