lib/PXElator/html.pm

package html;

sub table {
        my $cols = shift;
        my @td = map { "<td>$_</td>" } @_;
        my $html = qq{<table>\n<tr>};
        foreach ( 0 .. $#td ) {
                        $html .= $td[$_];
                        $html .= qq{</tr>\n<tr>} if $_ % $cols == 1;
        }
        $html .= qq{</tr>\n</table>};
}

sub tabs {
        return unless @_;
        my $html = qq{<table border=1>\n<tr>};
        foreach my $row ( @_ ) {
                $row =~ s{\t}{</td><td>}g;
                $html .= qq|<tr><td>$row</td><tr>\n|;
        }
        $html .= qq|</table>|;
        return $html;
}
        

sub tt {
        qq|<tt>| . join(' ', @_) . qq|</tt>|;
}

sub select {
        my $name = shift;
        my $checked_option = shift;
        return join("\n"        
                , qq|<select type=select name=$name>|
                , join("\n", map { my $checked = $_ eq $checked_option ? 'checked' : ''; qq|<option name=$_ $checked>$_</option>| } @_ )
                , qq|</select>|
                , qq|</form>|
        );
}

warn "loaded";

1;
1	dpavlin	43	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	dpavlin	72	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	dpavlin	64	sub tt {
27			qq\|<tt>\| . join(' ', @_) . qq\|</tt>\|;
28			}
29
30	dpavlin	153	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	dpavlin	45	warn "loaded";
42
43	dpavlin	43	1;