xowf::WorkflowPage instproc render_form_action_buttons (public)

 <instance of xowf::WorkflowPage> render_form_action_buttons \
    [ -formfieldButtonClass formfieldButtonClass ] \
    [ -CSSclass CSSclass ]

Defined in /var/www/openacs.org/packages/xowf/tcl/xowf-procs.tcl

Render the defined actions in the current state with submit buttons

Switches:

-formfieldButtonClass (optional, defaults to "::xowiki::formfield::submit_button")

-CSSclass (optional)

Testcases:

create_workflow_with_instance

Source code:

if {[:is_wf_instance]} {

  set ctx [::xowf::Context require [self]]
  set buttons {}
  foreach action [$ctx get_actions] {
    set success 0
    foreach role [$action roles] {
      set success [:check_role $role]
      if {$success} break
    }
    if {$success} {
      set f [$formfieldButtonClass new  -name __action_[namespace tail $action]  -form_button_wrapper_CSSclass [$action wrapper_CSSclass]  -label_noquote [$action label_noquote]  -CSSclass $CSSclass  -destroy_on_cleanup  ]
      if {[$action extra_css_class] ne ""} {
        #$f append form_button_CSSclass " " [$action extra_css_class]
        $f form_button_CSSclass ""
        $f CSSclass_list_add form_button_CSSclass [$action extra_css_class]
      }
      $f CSSclass_list_add form_button_CSSclass prevent-double-click
      #ns_log notice "RENDER BUTTON has CSSclass [$f CSSclass] // [$f form_button_CSSclass]"
      if {[$action exists title]} {
        $f title [$action title]
      }
      $f value [$action label]
      lappend buttons $f
    }
  }
  #
  # Render the button widgets.
  #
  :render_form_action_buttons_widgets -CSSclass $CSSclass $buttons
} else {
  next
}

XQL Not present:

Generic, PostgreSQL, Oracle