+% } elsif ( $def->{select_hash} ) {
+% $def->{select_hash} = tie %{ $def->{select_hash} },
+% 'Tie::IxHash',
+% @{ $def->{select_hash} }
+% if ref($def->{select_hash}) eq 'ARRAY';
+% foreach my $key ( keys %{$def->{select_hash}} ) {
+% $html .= qq!<OPTION VALUE="$key"!.
+% (grep(/^$key$/, split(',',$value)) ? ' SELECTED>' : '>' ).
+% $def->{select_hash}{$key}. '</OPTION>';
+% } #next $key