lib/PXElator/html.pm

package html;

sub table {
        my $cols = shift;
        my $th;

        if ( $cols < 0 ) {
                $cols = abs($cols);
                $th .= qq|<th>| . shift(@_) . qq|</td>| foreach ( 1 .. $cols );
                $th .= qq|</tr>\n<tr>|;
        }

        my @td = map { "<td>$_</td>" } @_;
        my $html = qq{<table>\n<tr>$th};
        foreach ( 0 .. $#td ) {
                        $html .= $td[$_];
                        $html .= qq{</tr>\n<tr>} if ( $_ + 1 ) % $cols == 0;
        }
        $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 $selected_option = shift;
        return join("\n"        
                , qq|<select type=select name=$name>|
                , join("\n", map { my $selected = $_ eq $selected_option ? 'selected' : ''; qq|<option name=$_ $selected>$_</option>| } @_ )
                , qq|</select>|
                , qq|</form>|
        );
}

warn "loaded";

1;
1	package html;
2
3	sub table {
4	my $cols = shift;
5	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	my @td = map { "<td>$_</td>" } @_;
14	my $html = qq{<table>\n<tr>$th};
15	foreach ( 0 .. $#td ) {
16	$html .= $td[$_];
17	$html .= qq{</tr>\n<tr>} if ( $_ + 1 ) % $cols == 0;
18	}
19	$html .= qq{</tr>\n</table>};
20	}
21
22	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	sub tt {
35	qq\|<tt>\| . join(' ', @_) . qq\|</tt>\|;
36	}
37
38	sub select {
39	my $name = shift;
40	my $selected_option = shift;
41	return join("\n"
42	, qq\|<select type=select name=$name>\|
43	, join("\n", map { my $selected = $_ eq $selected_option ? 'selected' : ''; qq\|<option name=$_ $selected>$_</option>\| } @_ )
44	, qq\|</select>\|
45	, qq\|</form>\|
46	);
47	}
48
49	warn "loaded";
50
51	1;