--- lib/PXElator/html.pm 2009/07/29 19:57:07 43
+++ lib/PXElator/html.pm 2009/08/05 23:22:17 153
@@ -11,4 +11,33 @@
$html .= qq{\n};
}
+sub tabs {
+ return unless @_;
+ my $html = qq{
\n};
+ foreach my $row ( @_ ) {
+ $row =~ s{\t}{}g;
+ $html .= qq| |
$row |
\n|;
+ }
+ $html .= qq|
|;
+ return $html;
+}
+
+
+sub tt {
+ qq|| . join(' ', @_) . qq||;
+}
+
+sub select {
+ my $name = shift;
+ my $checked_option = shift;
+ return join("\n"
+ , qq||
+ , qq||
+ );
+}
+
+warn "loaded";
+
1;