%3 ::xotcl::Object ::xotcl::Object ::xo::db::sql::forums_message ::xo::db::sql::forums_message → delete → delete_thread → name → new → root_message_id → set_state → thread_close → thread_open ::xo::db::sql::forums_message->::xotcl::Object

Class ::xo::db::sql::forums_message

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

Class Relations

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

Methods (to be applied on the object)

  • delete (scripted, public)

     xo::db::sql::forums_message[i] delete [ -dbn dbn ] \
    -message_id message_id

    Automatically generated method

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

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

  • delete_thread (scripted, public)

     xo::db::sql::forums_message[i] delete_thread [ -dbn dbn ] \
    -message_id message_id

    Automatically generated method

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

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

  • name (scripted, public)

     xo::db::sql::forums_message[i] name [ -dbn dbn ] -message_id message_id

    Automatically generated method

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

    Testcases:
    No testcase defined.
    #function_args: {MESSAGE_ID {}}
foreach var [list MESSAGE_ID]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select forums_message__name($_MESSAGE_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::forums_message[i] new [ -dbn dbn ] -message_id message_id  \
    [ -object_type object_type ] -forum_id forum_id  -subject subject  \
    -content content  -format format  -user_id user_id  -state state  \
    -parent_id parent_id  -creation_date creation_date  \
    -creation_user creation_user  -creation_ip creation_ip  \
    -context_id context_id  [ -childof childof ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -message_id (required)
    -object_type (optional, defaults to "forums_message")
    -forum_id (required)
    -subject (required)
    -content (required)
    -format (required)
    -user_id (required)
    -state (required)
    -parent_id (required)
    -creation_date (required)
    -creation_user (required)
    -creation_ip (required)
    -context_id (required)
    -childof (optional)

    Testcases:
    No testcase defined.
    #function_args: {MESSAGE_ID {}} {OBJECT_TYPE forums_message} {FORUM_ID {}} {SUBJECT {}} {CONTENT {}} {FORMAT {}} {USER_ID {}} {STATE {}} {PARENT_ID {}} {CREATION_DATE {}} {CREATION_USER {}} {CREATION_IP {}} {CONTEXT_ID {}}
foreach var [list MESSAGE_ID OBJECT_TYPE FORUM_ID SUBJECT CONTENT FORMAT USER_ID STATE PARENT_ID CREATION_DATE CREATION_USER CREATION_IP CONTEXT_ID]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select forums_message__new($_MESSAGE_ID, $_OBJECT_TYPE, $_FORUM_ID, $_SUBJECT, $_CONTENT, $_FORMAT, $_USER_ID, $_STATE, $_PARENT_ID, $_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_CONTEXT_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • root_message_id (scripted, public)

     xo::db::sql::forums_message[i] root_message_id [ -dbn dbn ] \
    -message_id message_id

    Automatically generated method

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

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

  • set_state (scripted, public)

     xo::db::sql::forums_message[i] set_state [ -dbn dbn ] \
    -message_id message_id  -state state

    Automatically generated method

    Switches:
    -dbn (optional)
    -message_id (required)
    -state (required)

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

  • thread_close (scripted, public)

     xo::db::sql::forums_message[i] thread_close [ -dbn dbn ] \
    -message_id message_id

    Automatically generated method

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

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

  • thread_open (scripted, public)

     xo::db::sql::forums_message[i] thread_open [ -dbn dbn ] \
    -message_id message_id

    Automatically generated method

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

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

Variables

::xo::db::sql::forums_message set __default_metaclass ::xotcl::Class
::xo::db::sql::forums_message set __default_superclass ::xotcl::Object
::xo::db::sql::forums_message set abstract_p f
::xo::db::sql::forums_message set auto_save false
::xo::db::sql::forums_message set name_method {}
::xo::db::sql::forums_message set object_type ::xo::db::sql::forums_message
::xo::db::sql::forums_message set security_inherit_p t
::xo::db::sql::forums_message set sql_package_name forums_message
::xo::db::sql::forums_message set supertype acs_object
::xo::db::sql::forums_message set with_table true