%3 ::xotcl::Object ::xotcl::Object ::xo::db::sql::acs_message ::xo::db::sql::acs_message → delete → delete_extlink → delete_file → delete_image → edit → edit_extlink → edit_file → edit_image → first_ancestor → message_p → name → new → new_extlink → new_file → new_image → send ::xo::db::sql::acs_message->::xotcl::Object

Class ::xo::db::sql::acs_message

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

Class Relations

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

Methods (to be applied on the object)

  • delete (scripted, public)

     xo::db::sql::acs_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 acs_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_extlink (scripted, public)

     xo::db::sql::acs_message[i] delete_extlink [ -dbn dbn ] \
    -extlink_id extlink_id

    Automatically generated method

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

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

  • delete_file (scripted, public)

     xo::db::sql::acs_message[i] delete_file [ -dbn dbn ] -file_id file_id

    Automatically generated method

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

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

  • delete_image (scripted, public)

     xo::db::sql::acs_message[i] delete_image [ -dbn dbn ] -image_id image_id

    Automatically generated method

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

    Testcases:
    No testcase defined.
    #function_args: {IMAGE_ID {}}
foreach var [list IMAGE_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_message__delete_image($_IMAGE_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::acs_message[i] edit [ -dbn dbn ] -message_id message_id  \
    [ -title title ] [ -description description ] \
    [ -mime_type mime_type ] [ -text text ] [ -data data ] \
    [ -creation_date creation_date ] [ -creation_user creation_user ] \
    [ -creation_ip creation_ip ] [ -is_live is_live ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -message_id (required)
    -title (optional)
    -description (optional)
    -mime_type (optional, defaults to "text/plain")
    -text (optional)
    -data (optional)
    -creation_date (optional, defaults to "sysdate")
    -creation_user (optional)
    -creation_ip (optional)
    -is_live (optional, defaults to "t")

    Testcases:
    No testcase defined.
    #function_args: {MESSAGE_ID {}} {TITLE null} {DESCRIPTION null} {MIME_TYPE text/plain} {TEXT null} {DATA null} {CREATION_DATE sysdate} {CREATION_USER null} {CREATION_IP null} {IS_LIVE t}
foreach var [list MESSAGE_ID TITLE DESCRIPTION MIME_TYPE TEXT DATA CREATION_DATE CREATION_USER CREATION_IP IS_LIVE]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select acs_message__edit($_MESSAGE_ID, $_TITLE, $_DESCRIPTION, $_MIME_TYPE, $_TEXT, $_DATA, $_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_IS_LIVE) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • edit_extlink (scripted, public)

     xo::db::sql::acs_message[i] edit_extlink [ -dbn dbn ] \
    -extlink_id extlink_id  -url url  [ -label label ] \
    -description description

    Automatically generated method

    Switches:
    -dbn (optional)
    -extlink_id (required)
    -url (required)
    -label (optional)
    -description (required)

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

  • edit_file (scripted, public)

     xo::db::sql::acs_message[i] edit_file [ -dbn dbn ] -file_id file_id  \
    [ -title title ] [ -description description ] \
    [ -mime_type mime_type ] [ -data data ] \
    [ -creation_date creation_date ] [ -creation_user creation_user ] \
    [ -creation_ip creation_ip ] [ -is_live is_live ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -file_id (required)
    -title (optional)
    -description (optional)
    -mime_type (optional, defaults to "text/plain")
    -data (optional)
    -creation_date (optional, defaults to "sysdate")
    -creation_user (optional)
    -creation_ip (optional)
    -is_live (optional, defaults to "t")

    Testcases:
    No testcase defined.
    #function_args: {FILE_ID {}} {TITLE null} {DESCRIPTION null} {MIME_TYPE text/plain} {DATA null} {CREATION_DATE sysdate} {CREATION_USER null} {CREATION_IP null} {IS_LIVE t}
foreach var [list FILE_ID TITLE DESCRIPTION MIME_TYPE DATA CREATION_DATE CREATION_USER CREATION_IP IS_LIVE]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select acs_message__edit_file($_FILE_ID, $_TITLE, $_DESCRIPTION, $_MIME_TYPE, $_DATA, $_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_IS_LIVE) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • edit_image (scripted, public)

     xo::db::sql::acs_message[i] edit_image [ -dbn dbn ] -image_id image_id  \
    [ -title title ] [ -description description ] \
    [ -mime_type mime_type ] [ -data data ] [ -width width ] \
    [ -height height ] [ -creation_date creation_date ] \
    [ -creation_user creation_user ] [ -creation_ip creation_ip ] \
    [ -is_live is_live ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -image_id (required)
    -title (optional)
    -description (optional)
    -mime_type (optional, defaults to "text/plain")
    -data (optional)
    -width (optional)
    -height (optional)
    -creation_date (optional, defaults to "sysdate")
    -creation_user (optional)
    -creation_ip (optional)
    -is_live (optional, defaults to "t")

    Testcases:
    No testcase defined.
    #function_args: {IMAGE_ID {}} {TITLE null} {DESCRIPTION null} {MIME_TYPE text/plain} {DATA null} {WIDTH null} {HEIGHT null} {CREATION_DATE sysdate} {CREATION_USER null} {CREATION_IP null} {IS_LIVE t}
foreach var [list IMAGE_ID TITLE DESCRIPTION MIME_TYPE DATA WIDTH HEIGHT CREATION_DATE CREATION_USER CREATION_IP IS_LIVE]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select acs_message__edit_image($_IMAGE_ID, $_TITLE, $_DESCRIPTION, $_MIME_TYPE, $_DATA, $_WIDTH, $_HEIGHT, $_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_IS_LIVE) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • first_ancestor (scripted, public)

     xo::db::sql::acs_message[i] first_ancestor [ -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 acs_message__first_ancestor($_MESSAGE_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • message_p (scripted, public)

     xo::db::sql::acs_message[i] message_p [ -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 acs_message__message_p($_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::acs_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 acs_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::acs_message[i] new [ -dbn dbn ] -message_id message_id  \
    -reply_to reply_to  -sent_date sent_date  -sender sender  \
    -rfc822_id rfc822_id  -title title  -description description  \
    -mime_type mime_type  -text text  -data data  \
    -parent_id parent_id  -context_id context_id  \
    -creation_user creation_user  -creation_ip creation_ip  \
    -object_type object_type  -is_live is_live  \
    -package_id package_id  [ -childof childof ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -message_id (required)
    -reply_to (required)
    -sent_date (required)
    -sender (required)
    -rfc822_id (required)
    -title (required)
    -description (required)
    -mime_type (required)
    -text (required)
    -data (required)
    -parent_id (required)
    -context_id (required)
    -creation_user (required)
    -creation_ip (required)
    -object_type (required)
    -is_live (required)
    -package_id (required)
    -childof (optional)

    Testcases:
    No testcase defined.
    #function_args: {MESSAGE_ID {}} {REPLY_TO {}} {SENT_DATE {}} {SENDER {}} {RFC822_ID {}} {TITLE {}} {DESCRIPTION {}} {MIME_TYPE {}} {TEXT {}} {DATA {}} {PARENT_ID {}} {CONTEXT_ID {}} {CREATION_USER {}} {CREATION_IP {}} {OBJECT_TYPE {}} {IS_LIVE {}} {PACKAGE_ID {}}
foreach var [list MESSAGE_ID REPLY_TO SENT_DATE SENDER RFC822_ID TITLE DESCRIPTION MIME_TYPE TEXT DATA PARENT_ID CONTEXT_ID CREATION_USER CREATION_IP OBJECT_TYPE IS_LIVE 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 acs_message__new($_MESSAGE_ID, $_REPLY_TO, $_SENT_DATE, $_SENDER, $_RFC822_ID, $_TITLE, $_DESCRIPTION, $_MIME_TYPE, $_TEXT, $_DATA, $_PARENT_ID, $_CONTEXT_ID, $_CREATION_USER, $_CREATION_IP, $_OBJECT_TYPE, $_IS_LIVE, $_PACKAGE_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • new_extlink (scripted, public)

     xo::db::sql::acs_message[i] new_extlink [ -dbn dbn ] [ -name name ] \
    [ -extlink_id extlink_id ] -url url  [ -label label ] \
    [ -description description ] -parent_id parent_id  \
    [ -creation_date creation_date ] [ -creation_user creation_user ] \
    [ -creation_ip creation_ip ] [ -package_id package_id ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -name (optional)
    -extlink_id (optional)
    -url (required)
    -label (optional)
    -description (optional)
    -parent_id (required)
    -creation_date (optional, defaults to "sysdate")
    -creation_user (optional)
    -creation_ip (optional)
    -package_id (optional)

    Testcases:
    No testcase defined.
    #function_args: {NAME null} {EXTLINK_ID null} {URL {}} {LABEL null} {DESCRIPTION null} {PARENT_ID {}} {CREATION_DATE sysdate} {CREATION_USER null} {CREATION_IP null} {PACKAGE_ID null}
foreach var [list NAME EXTLINK_ID URL LABEL DESCRIPTION PARENT_ID CREATION_DATE CREATION_USER CREATION_IP 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 acs_message__new_extlink($_NAME, $_EXTLINK_ID, $_URL, $_LABEL, $_DESCRIPTION, $_PARENT_ID, $_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_PACKAGE_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • new_file (scripted, public)

     xo::db::sql::acs_message[i] new_file [ -dbn dbn ] -message_id message_id  \
    [ -file_id file_id ] -file_name file_name  [ -title title ] \
    [ -description description ] [ -mime_type mime_type ] \
    [ -data data ] [ -creation_date creation_date ] \
    [ -creation_user creation_user ] [ -creation_ip creation_ip ] \
    [ -is_live is_live ] [ -storage_type storage_type ] \
    [ -package_id package_id ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -message_id (required)
    -file_id (optional)
    -file_name (required)
    -title (optional)
    -description (optional)
    -mime_type (optional, defaults to "text/plain")
    -data (optional)
    -creation_date (optional, defaults to "sysdate")
    -creation_user (optional)
    -creation_ip (optional)
    -is_live (optional, defaults to "t")
    -storage_type (optional, defaults to "file")
    -package_id (optional)

    Testcases:
    No testcase defined.
    #function_args: {MESSAGE_ID {}} {FILE_ID null} {FILE_NAME {}} {TITLE null} {DESCRIPTION null} {MIME_TYPE text/plain} {DATA null} {CREATION_DATE sysdate} {CREATION_USER null} {CREATION_IP null} {IS_LIVE t} {STORAGE_TYPE file} {PACKAGE_ID null}
foreach var [list MESSAGE_ID FILE_ID FILE_NAME TITLE DESCRIPTION MIME_TYPE DATA CREATION_DATE CREATION_USER CREATION_IP IS_LIVE STORAGE_TYPE 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 acs_message__new_file($_MESSAGE_ID, $_FILE_ID, $_FILE_NAME, $_TITLE, $_DESCRIPTION, $_MIME_TYPE, $_DATA, $_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_IS_LIVE, $_STORAGE_TYPE, $_PACKAGE_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • new_image (scripted, public)

     xo::db::sql::acs_message[i] new_image [ -dbn dbn ] \
    -message_id message_id  [ -image_id image_id ] \
    -file_name file_name  [ -title title ] \
    [ -description description ] [ -mime_type mime_type ] \
    [ -data data ] [ -width width ] [ -height height ] \
    [ -creation_date creation_date ] [ -creation_user creation_user ] \
    [ -creation_ip creation_ip ] [ -is_live is_live ] \
    [ -storage_type storage_type ] [ -package_id package_id ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -message_id (required)
    -image_id (optional)
    -file_name (required)
    -title (optional)
    -description (optional)
    -mime_type (optional, defaults to "text/plain")
    -data (optional)
    -width (optional)
    -height (optional)
    -creation_date (optional, defaults to "sysdate")
    -creation_user (optional)
    -creation_ip (optional)
    -is_live (optional, defaults to "t")
    -storage_type (optional, defaults to "file")
    -package_id (optional)

    Testcases:
    No testcase defined.
    #function_args: {MESSAGE_ID {}} {IMAGE_ID null} {FILE_NAME {}} {TITLE null} {DESCRIPTION null} {MIME_TYPE text/plain} {DATA null} {WIDTH null} {HEIGHT null} {CREATION_DATE sysdate} {CREATION_USER null} {CREATION_IP null} {IS_LIVE t} {STORAGE_TYPE file} {PACKAGE_ID null}
foreach var [list MESSAGE_ID IMAGE_ID FILE_NAME TITLE DESCRIPTION MIME_TYPE DATA WIDTH HEIGHT CREATION_DATE CREATION_USER CREATION_IP IS_LIVE STORAGE_TYPE 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 acs_message__new_image($_MESSAGE_ID, $_IMAGE_ID, $_FILE_NAME, $_TITLE, $_DESCRIPTION, $_MIME_TYPE, $_DATA, $_WIDTH, $_HEIGHT, $_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_IS_LIVE, $_STORAGE_TYPE, $_PACKAGE_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • send (scripted, public)

     xo::db::sql::acs_message[i] send [ -dbn dbn ] -message_id message_id  \
    -recipient_id recipient_id  [ -grouping_id grouping_id ] \
    [ -wait_until wait_until ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -message_id (required)
    -recipient_id (required)
    -grouping_id (optional)
    -wait_until (optional, defaults to "sysdate")

    Testcases:
    No testcase defined.
    #function_args: {MESSAGE_ID {}} {RECIPIENT_ID {}} {GROUPING_ID null} {WAIT_UNTIL sysdate}
foreach var [list MESSAGE_ID RECIPIENT_ID GROUPING_ID WAIT_UNTIL]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select acs_message__send($_MESSAGE_ID, $_RECIPIENT_ID, $_GROUPING_ID, $_WAIT_UNTIL) 
    "
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::acs_message set __default_metaclass ::xotcl::Class
::xo::db::sql::acs_message set __default_superclass ::xotcl::Object
::xo::db::sql::acs_message set abstract_p f
::xo::db::sql::acs_message set auto_save false
::xo::db::sql::acs_message set name_method {}
::xo::db::sql::acs_message set object_type ::xo::db::sql::acs_message
::xo::db::sql::acs_message set security_inherit_p t
::xo::db::sql::acs_message set sql_package_name acs_message
::xo::db::sql::acs_message set supertype acs_object
::xo::db::sql::acs_message set with_table true