/[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

Annotation of /lib/PXElator/html.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 172 - (hide annotations)
Thu Aug 6 22:27:34 2009 UTC (14 years, 7 months ago) by dpavlin
File size: 974 byte(s)
implement table header with negative witdh
1 dpavlin 43 package html;
2    
3     sub table {
4     my $cols = shift;
5 dpavlin 172 my $th;
6    
7     if ( $cols < 0 ) {
8     $cols = abs($cols);
9     $th .= qq|<th>| . shift(@_) . qq|</td>| foreach ( 1 .. $cols );
10     $th .= qq|</tr>\n<tr>|;
11     }
12    
13 dpavlin 43 my @td = map { "<td>$_</td>" } @_;
14 dpavlin 172 my $html = qq{<table>\n<tr>$th};
15 dpavlin 43 foreach ( 0 .. $#td ) {
16     $html .= $td[$_];
17 dpavlin 172 $html .= qq{</tr>\n<tr>} if ( $_ + 1 ) % $cols == 0;
18 dpavlin 43 }
19     $html .= qq{</tr>\n</table>};
20     }
21    
22 dpavlin 72 sub tabs {
23     return unless @_;
24     my $html = qq{<table border=1>\n<tr>};
25     foreach my $row ( @_ ) {
26     $row =~ s{\t}{</td><td>}g;
27     $html .= qq|<tr><td>$row</td><tr>\n|;
28     }
29     $html .= qq|</table>|;
30     return $html;
31     }
32    
33    
34 dpavlin 64 sub tt {
35     qq|<tt>| . join(' ', @_) . qq|</tt>|;
36     }
37    
38 dpavlin 153 sub select {
39     my $name = shift;
40 dpavlin 161 my $selected_option = shift;
41 dpavlin 153 return join("\n"
42     , qq|<select type=select name=$name>|
43 dpavlin 161 , join("\n", map { my $selected = $_ eq $selected_option ? 'selected' : ''; qq|<option name=$_ $selected>$_</option>| } @_ )
44 dpavlin 153 , qq|</select>|
45     , qq|</form>|
46     );
47     }
48    
49 dpavlin 45 warn "loaded";
50    
51 dpavlin 43 1;

  ViewVC Help
Powered by ViewVC 1.1.26