use constant OPTION_DEFAULTS =>
{
MAXLENGTH => 75,
- WIDTH => 30,
- HEIGHT => 5,
+ WIDTH => 225,
+ HEIGHT => 90,
};
sub processed_options {
}
my $flags = $self->flags;
- my $ret;
+ my $ret = {};
foreach my $flag (split m/:/, $flags) {
if ( $flag =~ m/(.*?)=(.*)/ ) {
customer => 'number_value',
vendor => 'number_value',
part => 'number_value',
+ htmlfield => 'text_value',
text => 'text_value',
textfield => 'text_value',
select => 'text_value'