--- lib/PXElator/html.pm 2009/08/05 23:22:17 153 +++ lib/PXElator/html.pm 2009/08/06 18:09:30 161 @@ -29,10 +29,10 @@ sub select { my $name = shift; - my $checked_option = shift; + my $selected_option = shift; return join("\n" , qq|| - , join("\n", map { my $checked = $_ eq $checked_option ? 'checked' : ''; qq|$_| } @_ ) + , join("\n", map { my $selected = $_ eq $selected_option ? 'selected' : ''; qq|$_| } @_ ) , qq|| , qq|| );