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

Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.52 and 1.54

version 1.52, 2002/09/26 21:40:24 version 1.54, 2002/10/02 18:12:51
Line 359  sub displayfoils { Line 359  sub displayfoils {
       }        }
     }      }
   } else {    } else {
     my $temp=0;      my $temp=0;  
     my $id=$Apache::inputtags::response['-1'];      my $id=$Apache::inputtags::response['-1'];
     my $part=$Apache::inputtags::part;      my $part=$Apache::inputtags::part;
     my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};      my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
Line 369  sub displayfoils { Line 369  sub displayfoils {
   $result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" ";    $result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" ";
   if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }    if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }
   $result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";    $result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";
     $result .= '<table border="1"><tr><td>A: &nbsp;&nbsp;Correct</td><td>B: &nbsp;&nbsp;Incorrect</td></tr></table>';
       } else {        } else {
   $result .= '\item '.$Apache::response::foilgroup{$name.'.text'};    $result .= '\item '.$Apache::response::foilgroup{$name.'.text'};
     if ($Apache::lonhomework::type eq 'exam') {
         $result.= '\vskip 2 mm \noindent \begin{tabular}{|lr|lr|}\hline ';
         $result.= 'A: &  Correct & B: & Incorrect';
         $result.='\\\\\hline\end{tabular}\vskip 0 mm ';
     }
       }        }
       $temp++;        $temp++;
     }      }
Line 448  sub start_foil { Line 454  sub start_foil {
        ['unused','true','false'],$token);         ['unused','true','false'],$token);
     my $randomize=&Apache::lonxml::get_param('randomize',$parstack,      my $randomize=&Apache::lonxml::get_param('randomize',$parstack,
      $safeeval,'-3');       $safeeval,'-3');
     if ($randomize eq 'yes') {      if ($randomize ne 'no') {
       $result.=&Apache::edit::select_arg('Location:','location',        $result.=&Apache::edit::select_arg('Location:','location',
  ['random','top','bottom'],$token);   ['random','top','bottom'],$token);
     }      }
Removed from v.1.52  
changed lines
  Added in v.1.54

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