/[pxelator]/lib/PXElator/html.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/html.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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  }  }

Legend:
Removed from v.64  
changed lines
  Added in v.72

  ViewVC Help
Powered by ViewVC 1.1.26