removed comma in qw

This commit is contained in:
Colin Kuskie 2004-12-30 01:49:22 +00:00
parent 5628fcbdd6
commit b6f9315976

View file

@ -949,7 +949,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,