I'm attempting to pass two variables to a ad_proc and I want to use these variables in a widget selection box.  How do I reference the variables in the select option list.

This is what I have:

in main tcl page:
-----------------
set allowed {gambling hate kids}
set restricted {chat email}
set select_widget [switch $allowed $restricted]]


in tcl ad_proc procedure call:
------------------------------
ad_proc -public switch{
  allowed
  restricted
}{
....
}
{
  set allowed_options ""
  set restricted_options ""

  foreach option $allowed{
    append allowed "<option>$option</option>\n"
  }
  foreach option $restricted{
    append restricted "<option>$option</option>\n"
  }

  set widget {
    ....
      <form>
        <select name="list" multiple="multiple"
          <option>$allowed</option>
        </select>
      </form>
    ....
  }
} return "$widget"
}

This does not work.  It returns a select box with only the value "$allowed".  Can someone please tell me what I am doing wrong as I am a newbie.  Thanks in advance.

Thank you Russell for your quick reply.  I'll give it a go.