---

Class ::xo::db::sql::wf_callback

::xo::db::sql::wf_callback create ...

Defined in

Class Relations

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

::xo::db::Class create ::xo::db::sql::wf_callback \
     -superclass ::xotcl::Object

Methods (to be applied on the object)

• guard_attribute_true (scripted, public)

   xo::db::sql::wf_callback guard_attribute_true [ -dbn dbn ] \
      -case_id case_id  -workflow_key workflow_key  \
      -transition_key transition_key  -place_key place_key  \
      -direction direction  -custom_arg custom_arg 

  Automatically generated method

  Switches:

  -dbn (optional)

  -case_id (required)

  -workflow_key (required)

  -transition_key (required)

  -place_key (required)

  -direction (required)

  -custom_arg (required)

  Testcases:

  No testcase defined.

  #function_args: {CASE_ID {}} {WORKFLOW_KEY {}} {TRANSITION_KEY {}} {PLACE_KEY {}} {DIRECTION {}} {CUSTOM_ARG {}}
  foreach var [list CASE_ID WORKFLOW_KEY TRANSITION_KEY PLACE_KEY DIRECTION CUSTOM_ARG]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select wf_callback__guard_attribute_true($_CASE_ID, $_WORKFLOW_KEY, $_TRANSITION_KEY, $_PLACE_KEY, $_DIRECTION, $_CUSTOM_ARG) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• time_sysdate_plus_x (scripted, public)

   xo::db::sql::wf_callback time_sysdate_plus_x [ -dbn dbn ] \
      -case_id case_id  -transition_key transition_key  \
      -custom_arg custom_arg 

  Automatically generated method

  Switches:

  -dbn (optional)

  -case_id (required)

  -transition_key (required)

  -custom_arg (required)

  Testcases:

  No testcase defined.

  #function_args: {CASE_ID {}} {TRANSITION_KEY {}} {CUSTOM_ARG {}}
  foreach var [list CASE_ID TRANSITION_KEY CUSTOM_ARG]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select wf_callback__time_sysdate_plus_x($_CASE_ID, $_TRANSITION_KEY, $_CUSTOM_ARG) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

---