%# The United States also has its native Fascists who say that they are
%# "100 percent American"...
%# 		-- U. S. Army (1945)
<SELECT align="absmiddle" style="vertical-align: middle; <% $Style %>" name="<% $Name %>" onchange="this.form.submit()">
% if (!defined $Current) {
<option value="">(<&|/l&>Please Select</&>)</option>
% }
% my $checked;
% foreach my $choice (@$Choices) {
%    my $selected = ($Current eq $choice) ? (' selected') : '';
%    $checked ||= $selected;
<option <% $selected %> value="<% $choice %>"><%
    ref($Loc)	? $Loc->($choice) :
    $Loc	? loc($choice)	:
		  $choice
%></option>
% }
% if ($Default and !$checked) {
<option value="" selected><% $Default %></option>
% }
</SELECT>

<%ARGS>
$Style		=> ''
$Current	=> undef
$Choices	=> []
$Loc		=> 1
$Default	=> undef
$Name
</%ARGS>
