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/(.*?)=(.*)/ ) {
return {
bool => 'bool_value',
timestamp => 'timestamp_value',
+ date => 'timestamp_value',
number => 'number_value',
integer => 'number_value',
customer => 'number_value',
vendor => 'number_value',
part => 'number_value',
+ htmlfield => 'text_value',
text => 'text_value',
textfield => 'text_value',
- date => 'text_value',
select => 'text_value'
}->{$type};
}