Fixed a bug where a radio button would produce a check box.

2003-01-22 00:55:34 +00:00 · 2003-01-22 00:55:34 +00:00 · dd32a855f1
commit dd32a855f1
parent 84886d2832
1 changed files with 1 additions and 1 deletions
--- 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,