typo in fieldType rearrange

This commit is contained in:
Colin Kuskie 2005-03-16 04:41:51 +00:00
parent a35341ba0d
commit 09b888712f

View file

@ -1022,7 +1022,7 @@ sub fieldType {
my ($output);
my ($self, @p) = @_;
my ($name, $types, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel, $defaultValue) =
rearrange([qw(name types label value size multiple extras subtext uiLevel $defaultValue)], @p);
rearrange([qw(name types label value size multiple extras subtext uiLevel defaultValue)], @p);
if (_uiLevelChecksOut($uiLevel)) {
$output = WebGUI::Form::fieldType({
"name"=>$name,