- if ( exists $opt{'onchange'} && $opt{'onchange'} ) {
- $opt{'onchange'} = ' onChange="' . $opt{'onchange'}. '"';
- } else {
- $opt{'onchange'} = '';
- }
+my $value = $opt{'curr_value'} || $opt{'value'};
+$value = [ split(/\s*,\s*/, $value) ] if $opt{'multiple'} && $value =~ /,/;