Class ::xo::db::sql::acs_message (public)

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

Defined in

Testcases:

No testcase defined.

Source code:

namespace eval ::xo::db::sql {}
::nsf::object::alloc ::xo::db::Class ::xo::db::sql::acs_message {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object
   set :abstract_p f
   set :auto_save false
   set :name_method {}
   set :object_type ::xo::db::sql::acs_message
   set :security_inherit_p t
   set :sql_package_name acs_message
   set :supertype acs_object
   set :with_table true}
::xo::db::sql::acs_message proc edit_image {{-dbn {}} -image_id:required -title -description {-mime_type text/plain} -data -width -height {-creation_date sysdate} -creation_user -creation_ip {-is_live t}} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc new_file {{-dbn {}} -message_id:required -file_id -file_name:required -title -description {-mime_type text/plain} -data {-creation_date sysdate} -creation_user -creation_ip {-is_live t} {-storage_type file} -package_id} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc send {{-dbn {}} -message_id:required -recipient_id:required -grouping_id {-wait_until sysdate}} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc new {{-dbn {}} -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} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc delete {{-dbn {}} -message_id:required} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc message_p {{-dbn {}} -message_id:required} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc edit_file {{-dbn {}} -file_id:required -title -description {-mime_type text/plain} -data {-creation_date sysdate} -creation_user -creation_ip {-is_live t}} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc first_ancestor {{-dbn {}} -message_id:required} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc edit {{-dbn {}} -message_id:required -title -description {-mime_type text/plain} -text -data {-creation_date sysdate} -creation_user -creation_ip {-is_live t}} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc new_extlink {{-dbn {}} -name -extlink_id -url:required -label -description -parent_id:required {-creation_date sysdate} -creation_user -creation_ip -package_id} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc name {{-dbn {}} -message_id:required} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc delete_extlink {{-dbn {}} -extlink_id:required} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc delete_file {{-dbn {}} -file_id:required} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc edit_extlink {{-dbn {}} -extlink_id:required -url:required -label -description:required} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc new_image {{-dbn {}} -message_id:required -image_id -file_name:required -title -description {-mime_type text/plain} -data -width -height {-creation_date sysdate} -creation_user -creation_ip {-is_live t} {-storage_type file} -package_id} {
      #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 ]
      }
    }
::xo::db::sql::acs_message proc delete_image {{-dbn {}} -image_id:required} {
      #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 ]
      }
    }

XQL Not present:

Generic, PostgreSQL, Oracle