| 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 |
); |
); |
Parent Directory
| 
Revision Log
| 
Patch