View/Edit #52:input_select

Name(s): input_select

1:  "Returns an HTML form drop-down list built as follows:"
2:  ":input_select(name, value-list [,current-value(s) [,size [,multiple]]])"
3:  {name, values, ?current = E_NONE, ?size = 1, ?multiple = 0} = args
4:  text = {}
5:  if (!current)
6:    current = {}
7:  elseif (typeof(current) != $LIST)
8:    current = {current}
9:  endif
10: for x in [1..length(values)]
11:   text = {@text, tostr("<OPTION VALUE=\"", this:literal_text(values[x]), "\"", values[x] in current ? " SELECTED" | "", ">", values[x])}
12: endfor
13: return tostr("<SELECT NAME=\"", this:literal_text(name), "\" SIZE=", size, multiple ? " MULTIPLE" | "", ">", @text, "</SELECT>")
14: "Last modified by Dax (#789) on Wed May  4 06:46:00 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Hacker (#60)

You are not logged in.