From b6f931597637da86dadf307348025c929459d1f3 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 30 Dec 2004 01:49:22 +0000
Subject: [PATCH] removed comma in qw

---
 lib/WebGUI/HTMLForm.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/HTMLForm.pm b/lib/WebGUI/HTMLForm.pm
index ed04a7df5..2ce7796ab 100644
--- a/lib/WebGUI/HTMLForm.pm
+++ b/lib/WebGUI/HTMLForm.pm
@@ -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,