45 |
sub select { |
sub select { |
46 |
my $name = shift; |
my $name = shift; |
47 |
my $selected_option = shift; |
my $selected_option = shift; |
48 |
|
unshift @_, '' unless $selected_option; |
49 |
return join("\n" |
return join("\n" |
50 |
, qq|<select type=select name=$name>| |
, qq|<select type=select name=$name>| |
51 |
, join("\n", map { my $selected = $_ eq $selected_option ? 'selected' : ''; qq|<option name=$_ $selected>$_</option>| } @_ ) |
, join("\n", map { my $selected = $_ eq $selected_option ? 'selected' : ''; qq|<option name=$_ $selected>$_</option>| } @_ ) |