Parent Directory | Revision Log | Patch
revision 64 by dpavlin, Thu Jul 30 16:26:54 2009 UTC | revision 72 by dpavlin, Thu Jul 30 23:57:19 2009 UTC | |
---|---|---|
# | Line 11 sub table { | Line 11 sub table { |
11 | $html .= qq{</tr>\n</table>}; | $html .= qq{</tr>\n</table>}; |
12 | } | } |
13 | ||
14 | sub tabs { | |
15 | return unless @_; | |
16 | my $html = qq{<table border=1>\n<tr>}; | |
17 | foreach my $row ( @_ ) { | |
18 | $row =~ s{\t}{</td><td>}g; | |
19 | $html .= qq|<tr><td>$row</td><tr>\n|; | |
20 | } | |
21 | $html .= qq|</table>|; | |
22 | return $html; | |
23 | } | |
24 | ||
25 | ||
26 | sub tt { | sub tt { |
27 | qq|<tt>| . join(' ', @_) . qq|</tt>|; | qq|<tt>| . join(' ', @_) . qq|</tt>|; |
28 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |