--- lib/PXElator/html.pm 2009/07/30 23:57:19 72
+++ lib/PXElator/html.pm 2009/08/06 18:09:30 161
@@ -27,6 +27,17 @@
qq|| . join(' ', @_) . qq||;
}
+sub select {
+ my $name = shift;
+ my $selected_option = shift;
+ return join("\n"
+ , qq||
+ , qq||
+ );
+}
+
warn "loaded";
1;