class Rtml::Test::SimulatorPostProcessors::Submit < Rtml::Test::SimulatorPostProcessors::Base
  affects 'Rtml::Test::Simulator', 'simulator'
  entry_point :check_submit_directive

  def check_submit_directive
    if submit = on_current_screen("submit").first
      target = submit['tgt']
      getvars = ((submit / "getvar") || []).inject({}) do |hash, getvar|
        hash[variables.literal_value(getvar['name'])] = variables.literal_value(variables[getvar['name']])
        hash
      end
      parent.post_data variables.literal_value(target), getvars
    end
  end
end