|
version 1.16, 2003/02/28 23:47:37
|
version 1.17, 2003/03/01 00:07:18
|
|
Line 806 sub render {
|
Line 806 sub render {
|
| $result .= "<tr>\n<td width='20'> </td>\n<td>"; |
$result .= "<tr>\n<td width='20'> </td>\n<td>"; |
| $result .= "<td valign=\"top\"><input type=\"radio\" name=\"$var.forminput\""; |
$result .= "<td valign=\"top\"><input type=\"radio\" name=\"$var.forminput\""; |
| if (!$checked) { |
if (!$checked) { |
| $result .= " selected"; |
$result .= " checked"; |
| $checked = 1; |
$checked = 1; |
| } |
} |
| $result .= " value=\"$value\"></td>\n<td>$text</td>\n</tr>\n\n"; |
$result .= " value=\"$value\"></td>\n<td>$text</td>\n</tr>\n\n"; |
|
Line 1266 sub render {
|
Line 1266 sub render {
|
| # Create the composite function that renders the column on the nav map |
# 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 |
# have to admit any language that lets me do this can't be all bad |
| # - Jeremy (Pythonista) ;-) |
# - Jeremy (Pythonista) ;-) |
| |
my $checked = 0; |
| my $renderColFunc = sub { |
my $renderColFunc = sub { |
| my ($resource, $part, $params) = @_; |
my ($resource, $part, $params) = @_; |
| |
|
|
Line 1273 sub render {
|
Line 1274 sub render {
|
| return '<td> </td>'; |
return '<td> </td>'; |
| } else { |
} else { |
| my $col = "<td><input type='radio' name='${var}.forminput' "; |
my $col = "<td><input type='radio' name='${var}.forminput' "; |
| if ($vals->{$resource->{ID}}) { |
if (!$checked) { |
| $col .= "checked "; |
$col .= "checked "; |
| |
$checked = 1; |
| } |
} |
| $col .= "value='" . $resource->{ID} . "' /></td>"; |
$col .= "value='" . $resource->{ID} . "' /></td>"; |
| return $col; |
return $col; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonwizard.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface