29 |
|
|
30 |
sub select { |
sub select { |
31 |
my $name = shift; |
my $name = shift; |
32 |
my $checked_option = shift; |
my $selected_option = shift; |
33 |
return join("\n" |
return join("\n" |
34 |
, qq|<select type=select name=$name>| |
, qq|<select type=select name=$name>| |
35 |
, join("\n", map { my $checked = $_ eq $checked_option ? 'checked' : ''; qq|<option name=$_ $checked>$_</option>| } @_ ) |
, join("\n", map { my $selected = $_ eq $selected_option ? 'selected' : ''; qq|<option name=$_ $selected>$_</option>| } @_ ) |
36 |
, qq|</select>| |
, qq|</select>| |
37 |
, qq|</form>| |
, qq|</form>| |
38 |
); |
); |