[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.57

version 1.52, 2002/09/26 21:40:24 version 1.57, 2002/10/17 17:13:44
Line 79  sub end_radiobuttonresponse { Line 79  sub end_radiobuttonresponse {
   
 %Apache::response::foilgroup=();  %Apache::response::foilgroup=();
 sub start_foilgroup {  sub start_foilgroup {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;
   %Apache::response::foilgroup=();    %Apache::response::foilgroup=();
   $Apache::radiobuttonresponse::conceptgroup=0;    $Apache::radiobuttonresponse::conceptgroup=0;
   &Apache::response::setrandomnumber();    &Apache::response::setrandomnumber();
   return '';    if ($target eq 'tex' && $Apache::lonhomework::type eq 'exam') {
         $result.='\item[\textbf{'.$Apache::lonxml::counter.'}.]';
         &Apache::lonxml::increment_counter();
     }
     return $result;
 }  }
   
 sub storesurvey {  sub storesurvey {
Line 102  sub storesurvey { Line 108  sub storesurvey {
   
 sub grade_response {  sub grade_response {
   my ($max,$randomize)=@_;    my ($max,$randomize)=@_;
     #keep the random numbers the same must always call this
     my ($answer,@whichfoils)=&whichfoils($max,$randomize);
   if (!defined($ENV{'form.submitted'})) { return; }    if (!defined($ENV{'form.submitted'})) { return; }
   my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};    my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
   if ( $response !~ /[0-9]+/) { return; }    if ( $response !~ /[0-9]+/) { return; }
   my $part=$Apache::inputtags::part;    my $part=$Apache::inputtags::part;
   my $id = $Apache::inputtags::response['-1'];    my $id = $Apache::inputtags::response['-1'];
   my ($answer,@whichfoils)=&whichfoils($max,$randomize);  
   my %responsehash;    my %responsehash;
   $responsehash{$whichfoils[$response]}=$response;    $responsehash{$whichfoils[$response]}=$response;
   my $responsestr=&Apache::lonnet::hash2str(%responsehash);    my $responsestr=&Apache::lonnet::hash2str(%responsehash);
Line 359  sub displayfoils { Line 366  sub displayfoils {
       }        }
     }      }
   } else {    } else {
     my $temp=0;      my @alphabet = ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
       my $i = 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 378  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";
     if ($Apache::lonhomework::type eq 'exam') {
         $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'};    if ($Apache::lonhomework::type eq 'exam') {
         $result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\';
         $i++;
     } else {
         $result .= '\item '.$Apache::response::foilgroup{$name.'.text'};
     }
       }        }
       $temp++;        $temp++;
     }      }
Line 448  sub start_foil { Line 465  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.57

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