%3 ::xotcl::Object ::xotcl::Object ::xo::db::sql::workflow ::xo::db::sql::workflow → add_arc → add_place → add_role → add_trans_attribute_map → add_trans_role_assign_map → add_transition → create_attribute → create_workflow → delete → delete_arc → delete_cases → delete_place → delete_role → delete_trans_attribute_map → delete_trans_role_assign_map → delete_transition → drop_attribute → drop_workflow → move_role_down → move_role_up → new → simple_p ::xo::db::sql::workflow->::xotcl::Object

Class ::xo::db::sql::workflow

::xo::db::sql::workflow[i] create ...
Defined in

Class Relations

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

Methods (to be applied on the object)

  • add_arc (scripted, public)

     xo::db::sql::workflow[i] add_arc [ -dbn dbn ] -workflow_key workflow_key  \
    -from_place_key from_place_key  \
    -to_transition_key to_transition_key

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -from_place_key (required)
    -to_transition_key (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {FROM_PLACE_KEY {}} {TO_TRANSITION_KEY {}}
foreach var [list WORKFLOW_KEY FROM_PLACE_KEY TO_TRANSITION_KEY]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__add_arc($_WORKFLOW_KEY, $_FROM_PLACE_KEY, $_TO_TRANSITION_KEY) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • add_place (scripted, public)

     xo::db::sql::workflow[i] add_place [ -dbn dbn ] \
    -workflow_key workflow_key  -place_key place_key  \
    -place_name place_name  -sort_order sort_order

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -place_key (required)
    -place_name (required)
    -sort_order (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {PLACE_KEY {}} {PLACE_NAME {}} {SORT_ORDER {}}
foreach var [list WORKFLOW_KEY PLACE_KEY PLACE_NAME SORT_ORDER]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__add_place($_WORKFLOW_KEY, $_PLACE_KEY, $_PLACE_NAME, $_SORT_ORDER) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • add_role (scripted, public)

     xo::db::sql::workflow[i] add_role [ -dbn dbn ] \
    -workflow_key workflow_key  -role_key role_key  \
    -role_name role_name  -sort_order sort_order

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -role_key (required)
    -role_name (required)
    -sort_order (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {ROLE_KEY {}} {ROLE_NAME {}} {SORT_ORDER {}}
foreach var [list WORKFLOW_KEY ROLE_KEY ROLE_NAME SORT_ORDER]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__add_role($_WORKFLOW_KEY, $_ROLE_KEY, $_ROLE_NAME, $_SORT_ORDER) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • add_trans_attribute_map (scripted, public)

     xo::db::sql::workflow[i] add_trans_attribute_map [ -dbn dbn ] \
    -workflow_key workflow_key  -transition_key transition_key  \
    -attribute_id attribute_id  -sort_order sort_order

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -transition_key (required)
    -attribute_id (required)
    -sort_order (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}} {ATTRIBUTE_ID {}} {SORT_ORDER {}}
foreach var [list WORKFLOW_KEY TRANSITION_KEY ATTRIBUTE_ID SORT_ORDER]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__add_trans_attribute_map($_WORKFLOW_KEY, $_TRANSITION_KEY, $_ATTRIBUTE_ID, $_SORT_ORDER) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • add_trans_role_assign_map (scripted, public)

     xo::db::sql::workflow[i] add_trans_role_assign_map [ -dbn dbn ] \
    -workflow_key workflow_key  -transition_key transition_key  \
    -assign_role_key assign_role_key

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -transition_key (required)
    -assign_role_key (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}} {ASSIGN_ROLE_KEY {}}
foreach var [list WORKFLOW_KEY TRANSITION_KEY ASSIGN_ROLE_KEY]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__add_trans_role_assign_map($_WORKFLOW_KEY, $_TRANSITION_KEY, $_ASSIGN_ROLE_KEY) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • add_transition (scripted, public)

     xo::db::sql::workflow[i] add_transition [ -dbn dbn ] \
    -workflow_key workflow_key  -transition_key transition_key  \
    -transition_name transition_name  -role_key role_key  \
    -sort_order sort_order  [ -trigger_type trigger_type ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -transition_key (required)
    -transition_name (required)
    -role_key (required)
    -sort_order (required)
    -trigger_type (optional, defaults to "user")

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}} {TRANSITION_NAME {}} {ROLE_KEY {}} {SORT_ORDER {}} {TRIGGER_TYPE user}
foreach var [list WORKFLOW_KEY TRANSITION_KEY TRANSITION_NAME ROLE_KEY SORT_ORDER TRIGGER_TYPE]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__add_transition($_WORKFLOW_KEY, $_TRANSITION_KEY, $_TRANSITION_NAME, $_ROLE_KEY, $_SORT_ORDER, $_TRIGGER_TYPE) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • create_attribute (scripted, public)

     xo::db::sql::workflow[i] create_attribute [ -dbn dbn ] \
    -workflow_key workflow_key  -attribute_name attribute_name  \
    -datatype datatype  -pretty_name pretty_name  \
    [ -pretty_plural pretty_plural ] [ -table_name table_name ] \
    [ -column_name column_name ] [ -default_value default_value ] \
    [ -min_n_values min_n_values ] [ -max_n_values max_n_values ] \
    [ -sort_order sort_order ] [ -storage storage ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -attribute_name (required)
    -datatype (required)
    -pretty_name (required)
    -pretty_plural (optional)
    -table_name (optional)
    -column_name (optional)
    -default_value (optional)
    -min_n_values (optional, defaults to "1")
    -max_n_values (optional, defaults to "1")
    -sort_order (optional)
    -storage (optional, defaults to "generic")

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {ATTRIBUTE_NAME {}} {DATATYPE {}} {PRETTY_NAME {}} {PRETTY_PLURAL null} {TABLE_NAME null} {COLUMN_NAME null} {DEFAULT_VALUE null} {MIN_N_VALUES 1} {MAX_N_VALUES 1} {SORT_ORDER null} {STORAGE generic}
foreach var [list WORKFLOW_KEY ATTRIBUTE_NAME DATATYPE PRETTY_NAME PRETTY_PLURAL TABLE_NAME COLUMN_NAME DEFAULT_VALUE MIN_N_VALUES MAX_N_VALUES SORT_ORDER STORAGE]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__create_attribute($_WORKFLOW_KEY, $_ATTRIBUTE_NAME, $_DATATYPE, $_PRETTY_NAME, $_PRETTY_PLURAL, $_TABLE_NAME, $_COLUMN_NAME, $_DEFAULT_VALUE, $_MIN_N_VALUES, $_MAX_N_VALUES, $_SORT_ORDER, $_STORAGE) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • create_workflow (scripted, public)

     xo::db::sql::workflow[i] create_workflow [ -dbn dbn ] \
    -workflow_key workflow_key  -pretty_name pretty_name  \
    [ -pretty_plural pretty_plural ] [ -description description ] \
    -table_name table_name  [ -id_column id_column ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -pretty_name (required)
    -pretty_plural (optional)
    -description (optional)
    -table_name (required)
    -id_column (optional, defaults to "case_id")

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {PRETTY_NAME {}} {PRETTY_PLURAL null} {DESCRIPTION null} {TABLE_NAME {}} {ID_COLUMN case_id}
foreach var [list WORKFLOW_KEY PRETTY_NAME PRETTY_PLURAL DESCRIPTION TABLE_NAME ID_COLUMN]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__create_workflow($_WORKFLOW_KEY, $_PRETTY_NAME, $_PRETTY_PLURAL, $_DESCRIPTION, $_TABLE_NAME, $_ID_COLUMN) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • delete (scripted, public)

     xo::db::sql::workflow[i] delete [ -dbn dbn ] \
    -delete_workflow_id delete_workflow_id

    Automatically generated method

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

    Testcases:
    No testcase defined.
    #function_args: {DELETE_WORKFLOW_ID {}}
foreach var [list DELETE_WORKFLOW_ID]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__delete($_DELETE_WORKFLOW_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • delete_arc (scripted, public)

     xo::db::sql::workflow[i] delete_arc [ -dbn dbn ] \
    -workflow_key workflow_key  -transition_key transition_key  \
    -place_key place_key  -direction direction

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -transition_key (required)
    -place_key (required)
    -direction (required)

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

  • delete_cases (scripted, public)

     xo::db::sql::workflow[i] delete_cases [ -dbn dbn ] \
    -workflow_key workflow_key

    Automatically generated method

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

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}}
foreach var [list WORKFLOW_KEY]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__delete_cases($_WORKFLOW_KEY) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • delete_place (scripted, public)

     xo::db::sql::workflow[i] delete_place [ -dbn dbn ] \
    -workflow_key workflow_key  -place_key place_key

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -place_key (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {PLACE_KEY {}}
foreach var [list WORKFLOW_KEY PLACE_KEY]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__delete_place($_WORKFLOW_KEY, $_PLACE_KEY) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • delete_role (scripted, public)

     xo::db::sql::workflow[i] delete_role [ -dbn dbn ] \
    -workflow_key workflow_key  -role_key role_key

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -role_key (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {ROLE_KEY {}}
foreach var [list WORKFLOW_KEY ROLE_KEY]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__delete_role($_WORKFLOW_KEY, $_ROLE_KEY) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • delete_trans_attribute_map (scripted, public)

     xo::db::sql::workflow[i] delete_trans_attribute_map [ -dbn dbn ] \
    -workflow_key workflow_key  -transition_key transition_key  \
    -attribute_id attribute_id

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -transition_key (required)
    -attribute_id (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}} {ATTRIBUTE_ID {}}
foreach var [list WORKFLOW_KEY TRANSITION_KEY ATTRIBUTE_ID]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__delete_trans_attribute_map($_WORKFLOW_KEY, $_TRANSITION_KEY, $_ATTRIBUTE_ID) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • delete_trans_role_assign_map (scripted, public)

     xo::db::sql::workflow[i] delete_trans_role_assign_map [ -dbn dbn ] \
    -workflow_key workflow_key  -transition_key transition_key  \
    -assign_role_key assign_role_key

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -transition_key (required)
    -assign_role_key (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}} {ASSIGN_ROLE_KEY {}}
foreach var [list WORKFLOW_KEY TRANSITION_KEY ASSIGN_ROLE_KEY]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__delete_trans_role_assign_map($_WORKFLOW_KEY, $_TRANSITION_KEY, $_ASSIGN_ROLE_KEY) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • delete_transition (scripted, public)

     xo::db::sql::workflow[i] delete_transition [ -dbn dbn ] \
    -workflow_key workflow_key  -transition_key transition_key

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -transition_key (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}}
foreach var [list WORKFLOW_KEY TRANSITION_KEY]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__delete_transition($_WORKFLOW_KEY, $_TRANSITION_KEY) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • drop_attribute (scripted, public)

     xo::db::sql::workflow[i] drop_attribute [ -dbn dbn ] \
    -workflow_key workflow_key  -attribute_name attribute_name

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -attribute_name (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {ATTRIBUTE_NAME {}}
foreach var [list WORKFLOW_KEY ATTRIBUTE_NAME]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__drop_attribute($_WORKFLOW_KEY, $_ATTRIBUTE_NAME) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • drop_workflow (scripted, public)

     xo::db::sql::workflow[i] drop_workflow [ -dbn dbn ] \
    -workflow_key workflow_key

    Automatically generated method

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

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}}
foreach var [list WORKFLOW_KEY]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__drop_workflow($_WORKFLOW_KEY) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • move_role_down (scripted, public)

     xo::db::sql::workflow[i] move_role_down [ -dbn dbn ] \
    -workflow_key workflow_key  -role_key role_key

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -role_key (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {ROLE_KEY {}}
foreach var [list WORKFLOW_KEY ROLE_KEY]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__move_role_down($_WORKFLOW_KEY, $_ROLE_KEY) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

  • move_role_up (scripted, public)

     xo::db::sql::workflow[i] move_role_up [ -dbn dbn ] \
    -workflow_key workflow_key  -role_key role_key

    Automatically generated method

    Switches:
    -dbn (optional)
    -workflow_key (required)
    -role_key (required)

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}} {ROLE_KEY {}}
foreach var [list WORKFLOW_KEY ROLE_KEY]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__move_role_up($_WORKFLOW_KEY, $_ROLE_KEY) 
    "
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::workflow[i] new [ -dbn dbn ] -short_name short_name  \
    -pretty_name pretty_name  -package_key package_key  \
    -object_id object_id  -object_type object_type  \
    -creation_user creation_user  -creation_ip creation_ip  \
    -context_id context_id  [ -childof childof ]

    Automatically generated method

    Switches:
    -dbn (optional)
    -short_name (required)
    -pretty_name (required)
    -package_key (required)
    -object_id (required)
    -object_type (required)
    -creation_user (required)
    -creation_ip (required)
    -context_id (required)
    -childof (optional)

    Testcases:
    No testcase defined.
    #function_args: {SHORT_NAME {}} {PRETTY_NAME {}} {PACKAGE_KEY {}} {OBJECT_ID {}} {OBJECT_TYPE {}} {CREATION_USER {}} {CREATION_IP {}} {CONTEXT_ID {}}
foreach var [list SHORT_NAME PRETTY_NAME PACKAGE_KEY OBJECT_ID OBJECT_TYPE 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 workflow__new($_SHORT_NAME, $_PRETTY_NAME, $_PACKAGE_KEY, $_OBJECT_ID, $_OBJECT_TYPE, $_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 ]
}

  • simple_p (scripted, public)

     xo::db::sql::workflow[i] simple_p [ -dbn dbn ] \
    -workflow_key workflow_key

    Automatically generated method

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

    Testcases:
    No testcase defined.
    #function_args: {WORKFLOW_KEY {}}
foreach var [list WORKFLOW_KEY]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select workflow__simple_p($_WORKFLOW_KEY) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

Variables

::xo::db::sql::workflow set __default_metaclass ::xotcl::Class
::xo::db::sql::workflow set __default_superclass ::xotcl::Object
::xo::db::sql::workflow set abstract_p f
::xo::db::sql::workflow set auto_save false
::xo::db::sql::workflow set name_method {}
::xo::db::sql::workflow set object_type ::xo::db::sql::workflow
::xo::db::sql::workflow set security_inherit_p t
::xo::db::sql::workflow set sql_package_name workflow
::xo::db::sql::workflow set supertype acs_object
::xo::db::sql::workflow set with_table true