Class ::xo::db::sql::acs_activity

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

Defined in

Class Relations

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

Methods (to be applied on the object)

  • delete (scripted, public)

     xo::db::sql::acs_activity[i] delete [ -dbn dbn ] \
        -activity_id activity_id 

    Automatically generated method

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

    Testcases:
    No testcase defined.
    #function_args: {ACTIVITY_ID {}}
    foreach var [list ACTIVITY_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_activity__delete($_ACTIVITY_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_activity[i] edit [ -dbn dbn ] -activity_id activity_id  \
        [ -name name ] [ -description description ] [ -html_p html_p ] \
        [ -status_summary status_summary ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -activity_id (required)
    -name (optional)
    -description (optional)
    -html_p (optional)
    -status_summary (optional)

    Testcases:
    No testcase defined.
    #function_args: {ACTIVITY_ID {}} {NAME null} {DESCRIPTION null} {HTML_P null} {STATUS_SUMMARY null}
    foreach var [list ACTIVITY_ID NAME DESCRIPTION HTML_P STATUS_SUMMARY]  {
      set varname [string tolower $var]
      if {[info exists $varname]} {
        set $var [set $varname]
        set _$var :$var
      } else {
        set _$var null
      }
    }
    set sql "
    select acs_activity__edit($_ACTIVITY_ID$_NAME$_DESCRIPTION$_HTML_P$_STATUS_SUMMARY) 
        "
    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_activity[i] name [ -dbn dbn ] -activity_id activity_id 

    Automatically generated method

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

    Testcases:
    No testcase defined.
    #function_args: {ACTIVITY_ID {}}
    foreach var [list ACTIVITY_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_activity__name($_ACTIVITY_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_activity[i] new [ -dbn dbn ] \
        [ -activity_id activity_id ] -name name  \
        [ -description description ] [ -html_p html_p ] \
        [ -status_summary status_summary ] [ -object_type object_type ] \
        [ -creation_date creation_date ] [ -creation_user creation_user ] \
        [ -creation_ip creation_ip ] [ -context_id context_id ] \
        [ -childof childof ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -activity_id (optional)
    -name (required)
    -description (optional)
    -html_p (optional, defaults to "f")
    -status_summary (optional)
    -object_type (optional, defaults to "acs_activity")
    -creation_date (optional, defaults to "now()")
    -creation_user (optional)
    -creation_ip (optional)
    -context_id (optional)
    -childof (optional)

    Testcases:
    No testcase defined.
    #function_args: {ACTIVITY_ID null} {NAME {}} {DESCRIPTION null} {HTML_P f} {STATUS_SUMMARY null} {OBJECT_TYPE acs_activity} {CREATION_DATE now()} {CREATION_USER null} {CREATION_IP null} {CONTEXT_ID null}
    foreach var [list ACTIVITY_ID NAME DESCRIPTION HTML_P STATUS_SUMMARY OBJECT_TYPE 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 acs_activity__new($_ACTIVITY_ID$_NAME$_DESCRIPTION$_HTML_P$_STATUS_SUMMARY$_OBJECT_TYPE$_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 ]
    }
  • object_map (scripted, public)

     xo::db::sql::acs_activity[i] object_map [ -dbn dbn ] \
        -activity_id activity_id  -object_id object_id 

    Automatically generated method

    Switches:
    -dbn (optional)
    -activity_id (required)
    -object_id (required)

    Testcases:
    No testcase defined.
    #function_args: {ACTIVITY_ID {}} {OBJECT_ID {}}
    foreach var [list ACTIVITY_ID OBJECT_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_activity__object_map($_ACTIVITY_ID$_OBJECT_ID) 
        "
    db_with_handle -dbn $dbn db {
      #ns_log notice "--sql=$sql"
      return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
    }
  • object_unmap (scripted, public)

     xo::db::sql::acs_activity[i] object_unmap [ -dbn dbn ] \
        -activity_id activity_id  -object_id object_id 

    Automatically generated method

    Switches:
    -dbn (optional)
    -activity_id (required)
    -object_id (required)

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