Various changes not checked in previously because source forge was down.

2002-11-18 00:12:33 +00:00 · 2002-11-18 00:12:33 +00:00 · 8966e401c3
commit 8966e401c3
parent a06ad50cac
8 changed files with 298 additions and 46 deletions
--- a/lib/WebGUI/HTMLForm.pm
+++ b/lib/WebGUI/HTMLForm.pm
@ -1302,7 +1302,7 @@ sub radioList {
        my ($name, $options, $label, $value, $vertical, $extras, $subtext, $uiLevel) =
                rearrange([qw(name options label value vertical extras subtext uiLevel)], @p);
        if (_uiLevelChecksOut($uiLevel)) {
-                $output = WebGUI::Form::checkList({
+                $output = WebGUI::Form::radioList({
                        "name"=>$name,
                        "options"=>$options,
                        "value"=>$value,