Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.55 and 1.56

version 1.55, 2002/10/14 20:33:57 version 1.56, 2002/10/17 14:40:23
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::counter++;
         my %moreenv;
         $moreenv{'form.counter'}=$Apache::lonxml::counter;
         &Apache::lonnet::appenv(%moreenv);
     }
     return $result;
 }  }
   
 sub storesurvey {  sub storesurvey {
Line 360  sub displayfoils { Line 369  sub displayfoils {
       }        }
     }      }
   } else {    } else {
       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 $temp=0;  
     my $id=$Apache::inputtags::response['-1'];      my $id=$Apache::inputtags::response['-1'];
     my $part=$Apache::inputtags::part;      my $part=$Apache::inputtags::part;
Line 374  sub displayfoils { Line 385  sub displayfoils {
       $result .= '<table border="1"><tr><td>A: &nbsp;&nbsp;Correct</td><td>B: &nbsp;&nbsp;Incorrect</td></tr></table>';        $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') {    if ($Apache::lonhomework::type eq 'exam') {
       $result.= '\vskip 2 mm \noindent \begin{tabular}{|lr|lr|}\hline ';        $result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\';
       $result.= 'A: &  Correct & B: & Incorrect';        $i++;
       $result.='\\\\\hline\end{tabular}\vskip 0 mm ';    } else {
         $result .= '\item '.$Apache::response::foilgroup{$name.'.text'};
   }    }
       }        }
       $temp++;        $temp++;

Removed from v.1.55  
changed lines
  Added in v.1.56


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