[BACK]Return to lonwizard.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/lonwizard.pm between versions 1.15 and 1.17

version 1.15, 2003/02/28 23:42:18 version 1.17, 2003/03/01 00:07:18
Line 270  HEADER Line 270  HEADER
         if ($self->{STATE} ne $self->{START_STATE}) {          if ($self->{STATE} ne $self->{START_STATE}) {
             #$result .= '<input name="SUBMIT" type="submit" value="&lt;- Previous" />&nbsp;&nbsp;';              #$result .= '<input name="SUBMIT" type="submit" value="&lt;- Previous" />&nbsp;&nbsp;';
         }          }
         if ($self->{DONE} {          if ($self->{DONE}) {
             my $returnPage = $self->{RETURN_PAGE};              my $returnPage = $self->{RETURN_PAGE};
             $result .= "<a href=\"$returnPage\">End Wizard</a>";              $result .= "<a href=\"$returnPage\">End Wizard</a>";
         }          }
Line 806  sub render { Line 806  sub render {
  $result .= "<tr>\n<td width='20'>&nbsp;</td>\n<td>";   $result .= "<tr>\n<td width='20'>&nbsp;</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>&nbsp;</td>';              return '<td>&nbsp;</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;
Removed from v.1.15  
changed lines
  Added in v.1.17

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>