Parent Directory | Revision Log
turn debug on/off
1 | package html; |
2 | |
3 | sub table { |
4 | my $cols = shift; |
5 | my @td = map { "<td>$_</td>" } @_; |
6 | my $html = qq{<table>\n<tr>}; |
7 | foreach ( 0 .. $#td ) { |
8 | $html .= $td[$_]; |
9 | $html .= qq{</tr>\n<tr>} if $_ % $cols == 1; |
10 | } |
11 | $html .= qq{</tr>\n</table>}; |
12 | } |
13 | |
14 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |