--- loncom/interface/Attic/lonwizard.pm	2003/02/28 23:47:37	1.16
+++ loncom/interface/Attic/lonwizard.pm	2003/03/01 00:07:18	1.17
@@ -806,7 +806,7 @@ sub render {
 	$result .= "<tr>\n<td width='20'>&nbsp;</td>\n<td>";
 	$result .= "<td valign=\"top\"><input type=\"radio\" name=\"$var.forminput\"";
         if (!$checked) {
-            $result .= " selected";
+            $result .= " checked";
             $checked = 1;
         }
 	$result .= " value=\"$value\"></td>\n<td>$text</td>\n</tr>\n\n";
@@ -1266,6 +1266,7 @@ sub render {
     # Create the composite function that renders the column on the nav map
     # have to admit any language that lets me do this can't be all bad
     #  - Jeremy (Pythonista) ;-)
+    my $checked = 0;
     my $renderColFunc = sub {
         my ($resource, $part, $params) = @_;
         
@@ -1273,8 +1274,9 @@ sub render {
             return '<td>&nbsp;</td>';
         } else {
             my $col = "<td><input type='radio' name='${var}.forminput' ";
-            if ($vals->{$resource->{ID}}) {
+            if (!$checked) {
                 $col .= "checked ";
+                $checked = 1;
             }
             $col .= "value='" . $resource->{ID} . "' /></td>";
             return $col;