--- lib/PXElator/html.pm 2009/08/05 19:49:19 152
+++ lib/PXElator/html.pm 2009/08/05 23:22:17 153
@@ -27,6 +27,17 @@
qq|| . join(' ', @_) . qq||;
}
+sub select {
+ my $name = shift;
+ my $checked_option = shift;
+ return join("\n"
+ , qq||
+ , qq||
+ );
+}
+
warn "loaded";
1;