added most of the rest of the form controls

This commit is contained in:
JT Smith 2005-07-27 23:03:46 +00:00
parent ce6ee697f9
commit b86148acaa
12 changed files with 35 additions and 1870 deletions

View file

@ -118,7 +118,7 @@ sub getValueFromPost {
if (scalar(@data)) {
return wantarray ? @data : join("\n",@data);
}
return wantarray ? @[2] : 2;
return wantarray ? @{[2]} : 2;
}
#-------------------------------------------------------------------
@ -176,8 +176,7 @@ Renders the form field to HTML as a table row complete with labels, subtext, hov
sub toHtmlWithWrapper {
my $self = shift;
if (WebGUI::Grouping::isInGroup(3)) {
my $subtext;
$subtext = .= manageIcon("op=listGroups");
my $subtext = manageIcon("op=listGroups");
$self->{subtext} = $subtext . $self->{subtext};
}
return $self->SUPER::toHtmlWithWrapper;