Parent Directory | Revision Log | Patch
revision 152 by dpavlin, Thu Jul 30 23:57:19 2009 UTC | revision 153 by dpavlin, Wed Aug 5 23:22:17 2009 UTC | |
---|---|---|
# | Line 27 sub tt { | Line 27 sub tt { |
27 | qq|<tt>| . join(' ', @_) . qq|</tt>|; | qq|<tt>| . join(' ', @_) . qq|</tt>|; |
28 | } | } |
29 | ||
30 | sub select { | |
31 | my $name = shift; | |
32 | my $checked_option = shift; | |
33 | return join("\n" | |
34 | , qq|<select type=select name=$name>| | |
35 | , join("\n", map { my $checked = $_ eq $checked_option ? 'checked' : ''; qq|<option name=$_ $checked>$_</option>| } @_ ) | |
36 | , qq|</select>| | |
37 | , qq|</form>| | |
38 | ); | |
39 | } | |
40 | ||
41 | warn "loaded"; | warn "loaded"; |
42 | ||
43 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |