::xo::db::Class ::xo::db::sql::acs

Methods: All Methods Documented Methods Hide Methods
Source: Display Source Hide Source
Variables: Show Variables Hide Variables

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

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

create ...

Defined in

Class Relations

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

::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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 ]
}

Methods: All Methods Documented Methods Hide Methods
Source: Display Source Hide Source
Variables: Show Variables Hide Variables