--- lib/PXElator/html.pm 2009/08/27 14:31:49 307
+++ lib/PXElator/html.pm 2009/08/30 15:54:02 378
@@ -1,6 +1,7 @@
package html;
use Data::Dump qw/dump/;
+use amt;
sub table {
my $cols = shift;
@@ -45,6 +46,7 @@
sub select {
my $name = shift;
my $selected_option = shift;
+ unshift @_, '' unless $selected_option;
return join("\n"
, qq|