From dd32a855f1e6962644440fffca817c8511f468ad Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 22 Jan 2003 00:55:34 +0000
Subject: [PATCH] Fixed a bug where a radio button would produce a check box.

---
 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 ef1272b58..72213035f 100644
--- a/lib/WebGUI/HTMLForm.pm
+++ b/lib/WebGUI/HTMLForm.pm
@@ -1190,7 +1190,7 @@ sub radio {
         my ($name, $label, $checked, $value, $subtext, $extras, $uiLevel) =
                 rearrange([qw(name label checked value subtext extras uiLevel)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
-                $output = WebGUI::Form::checkbox({
+                $output = WebGUI::Form::radio({
                         "name"=>$name,
                         "value"=>$value,
                         "checked"=>$checked,