<%args>
    $name    => undef
    $default => undef
    $values  => undef
</%args>
<select name="<& '/lib/html/safe.mhtml', 'data' => $name &>">
% foreach my $value (@{$values})
% {
%   $value = {VALUE => $value, LABEL => $value} if (not ref $value);
%   if (defined $default and grep /^$value->{VALUE}$/, @{$default})
%   {
      <option selected value="<& '/lib/html/safe.mhtml', 'data' => $value->{VALUE} &>">
%   } else {
      <option value="<& '/lib/html/safe.mhtml', 'data' => $value->{VALUE} &>">
%   }
        <& '/lib/html/safe.mhtml', 'data' => i18nGettext($value->{LABEL}) &>
      </option>
% }
</select>
<%init>
  if (ref $values eq "HASH")
  {
      my @help = ();
      foreach my $key (keys %{$values})
      {
          push @help, {VALUE => $key, LABEL => $values->{$key}};
      }
      $values = [ @help ];
  }
</%init>
