fixing bugs related to new form system

This commit is contained in:
JT Smith 2005-07-28 22:10:28 +00:00
parent 74cd198203
commit 3058d839c0
15 changed files with 68 additions and 11 deletions

View file

@ -68,12 +68,19 @@ An array reference containing a list of groups to exclude from the list. Default
This will be used if no value is specified. Should be passed as an array reference. Defaults to 7 (Everyone).
=head4 label
A text label that will be displayed if toHtmlWithWrapper() is called. Defaults to getName().
=cut
sub definition {
my $class = shift;
my $definition = shift || [];
push(@{$definition}, {
label=>{
defaultValue=>$class->getName()
},
size=>{
defaultValue=>1
},