@verb #4980:"big_form" any any any rxd #9223
@program #4980:"big_form" any any any
"iframe-bound form for puttin :input_box(es) into."
player:tell("hi from big_form")
try
  r = {}
  submit_to = $web.url + tostr(toint(this)) + "/ibox_submit"
  r = {@r, "<form action=\"" + submit_to + "\" method=\"post\">"}
  argstrip = {{"type", "text"}, {"name", "inbound01"}}
  r = {@r, this:input_box("-Input1: ", argstrip)}
  r = {@r, "<br>"}
  argstrip = {{"type", "text"}, {"name", "inbound02"}}
  r = {@r, this:input_box("-Input2: ", argstrip)}
  r = {@r, "<br>"}
  argstrip = {{"type", "text"}, {"name", "inbound03"}}
  r = {@r, this:input_box("-Input3: ", argstrip)}
  r = {@r, "<br>"}
  argstrip = {{"type", "text"}, {"name", "inbound04"}}
  r = {@r, this:input_box("-Input4: ", argstrip)}
  r = {@r, "<br>"}
  argstrip = {{"type", "text"}, {"name", "inbound05"}}
  r = {@r, this:input_box("-Input5: ", argstrip)}
  r = {@r, "<br>"}
  argstrip = {{"type", "text"}, {"name", "inbound06"}}
  r = {@r, this:input_box("-Input6: ", argstrip)}
  r = {@r, "<br>"}
  argstrip = {{"type", "text"}, {"name", "inbound07"}}
  r = {@r, this:input_box("-Input7: ", argstrip)}
  r = {@r, "<br>"}
  argstrip = {{"type", "text"}, {"name", "inbound08"}}
  r = {@r, this:input_box("-Input8: ", argstrip)}
  r = {@r, "<br><br>"}
  argstrip = {{"type", "submit"}, {"value", "Send"}}
  r = {@r, this:input_box("", argstrip)}
  argstrip = {{"type", "reset"}}
  r = {@r, this:input_box("", argstrip)}
  r = {@r, "</form>"}
  player:tell($string_utils:from_list($list_utils:flatten(r)))
except e (ANY)
  player:tell("An error happened in #4980:big_form!")
  return toliteral(e)
endtry
"Last modified by Dax (#789) on Tue May  3 14:11:58 2005 MDT."
.