Parent Directory | Revision Log | Patch
revision 389 by dpavlin, Mon Sep 7 15:43:55 2009 UTC | revision 401 by dpavlin, Tue Sep 8 20:21:25 2009 UTC | |
---|---|---|
# | Line 51 sub select { | Line 51 sub select { |
51 | , qq|<select type=select name=$name>| | , qq|<select type=select name=$name>| |
52 | , 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>| } @_ ) |
53 | , qq|</select>| | , qq|</select>| |
, qq|</form>| | ||
54 | ); | ); |
55 | } | } |
56 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |