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)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc delete xo::db::sql::acs_message proc delete xo::db::sql::acs_message proc delete->db_with_handle

    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)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc delete_extlink xo::db::sql::acs_message proc delete_extlink xo::db::sql::acs_message proc delete_extlink->db_with_handle

    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)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc delete_file xo::db::sql::acs_message proc delete_file xo::db::sql::acs_message proc delete_file->db_with_handle

    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)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc delete_image xo::db::sql::acs_message proc delete_image xo::db::sql::acs_message proc delete_image->db_with_handle

    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
    (defaults to "text/plain") (optional)
    -text
    (optional)
    -data
    (optional)
    -creation_date
    (defaults to "sysdate") (optional)
    -creation_user
    (optional)
    -creation_ip
    (optional)
    -is_live
    (defaults to "t") (optional)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc edit xo::db::sql::acs_message proc edit xo::db::sql::acs_message proc edit->db_with_handle

    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)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc edit_extlink xo::db::sql::acs_message proc edit_extlink xo::db::sql::acs_message proc edit_extlink->db_with_handle

    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
    (defaults to "text/plain") (optional)
    -data
    (optional)
    -creation_date
    (defaults to "sysdate") (optional)
    -creation_user
    (optional)
    -creation_ip
    (optional)
    -is_live
    (defaults to "t") (optional)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc edit_file xo::db::sql::acs_message proc edit_file xo::db::sql::acs_message proc edit_file->db_with_handle

    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
    (defaults to "text/plain") (optional)
    -data
    (optional)
    -width
    (optional)
    -height
    (optional)
    -creation_date
    (defaults to "sysdate") (optional)
    -creation_user
    (optional)
    -creation_ip
    (optional)
    -is_live
    (defaults to "t") (optional)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc edit_image xo::db::sql::acs_message proc edit_image xo::db::sql::acs_message proc edit_image->db_with_handle

    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)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc first_ancestor xo::db::sql::acs_message proc first_ancestor xo::db::sql::acs_message proc first_ancestor->db_with_handle

    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)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc message_p xo::db::sql::acs_message proc message_p xo::db::sql::acs_message proc message_p->db_with_handle

    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)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc name xo::db::sql::acs_message proc name xo::db::sql::acs_message proc name->db_with_handle

    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)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc new xo::db::sql::acs_message proc new xo::db::sql::acs_message proc new->db_with_handle

    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
    (defaults to "sysdate") (optional)
    -creation_user
    (optional)
    -creation_ip
    (optional)
    -package_id
    (optional)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc new_extlink xo::db::sql::acs_message proc new_extlink xo::db::sql::acs_message proc new_extlink->db_with_handle

    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
    (defaults to "text/plain") (optional)
    -data
    (optional)
    -creation_date
    (defaults to "sysdate") (optional)
    -creation_user
    (optional)
    -creation_ip
    (optional)
    -is_live
    (defaults to "t") (optional)
    -storage_type
    (defaults to "file") (optional)
    -package_id
    (optional)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc new_file xo::db::sql::acs_message proc new_file xo::db::sql::acs_message proc new_file->db_with_handle

    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
    (defaults to "text/plain") (optional)
    -data
    (optional)
    -width
    (optional)
    -height
    (optional)
    -creation_date
    (defaults to "sysdate") (optional)
    -creation_user
    (optional)
    -creation_ip
    (optional)
    -is_live
    (defaults to "t") (optional)
    -storage_type
    (defaults to "file") (optional)
    -package_id
    (optional)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc new_image xo::db::sql::acs_message proc new_image xo::db::sql::acs_message proc new_image->db_with_handle

    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
    (defaults to "sysdate") (optional)

    Partial Call Graph (max 5 caller/called nodes):
    %3 db_with_handle db_with_handle (public) xo::db::sql::acs_message proc send xo::db::sql::acs_message proc send xo::db::sql::acs_message proc send->db_with_handle

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