Diff for /loncom/homework/matchresponse.pm between versions 1.6 and 1.7

version 1.6, 2003/03/18 21:26:33 version 1.7, 2003/03/19 18:36:37
Line 388  sub displayfoils { Line 388  sub displayfoils {
     my $lastopt=$lastresponse{$name};      my $lastopt=$lastresponse{$name};
     my $last_letter=$name_letter_map{$lastopt};      my $last_letter=$name_letter_map{$lastopt};
     my $optionlist = '';      my $optionlist = '';
     if ($target ne 'tex') {$optionlist="<option></option>\n";}       if ($target ne 'tex') {
        else {$optionlist='\framebox[5 mm][s]{\tiny\strut}';}   $optionlist="<option></option>\n";
       } else {
    if ($Apache::lonhomework::type ne 'exam') {
       $optionlist='\framebox[5 mm][s]{\tiny\strut}';
    } else {
       $optionlist='\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]';
    }
       }
     my $option;      my $option;
     foreach $option (sort(keys(%letter_name_map))) {      foreach $option (sort(keys(%letter_name_map))) {
  if ($option eq $last_letter) {   if ($option eq $last_letter) {
Line 414  sub displayfoils { Line 421  sub displayfoils {
     } else {      } else {
  if ($Apache::lonhomework::type eq 'exam') {   if ($Apache::lonhomework::type eq 'exam') {
     $question.=' '.$optionlist.$text."\n";      $question.=' '.$optionlist.$text."\n";
     $question.='\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]'.&Apache::optionresponse::bubbles(\@Items,\@Items).'\end{enumerate}\strut ';      $question.=&Apache::optionresponse::bubbles(\@Items,\@Items).'\end{enumerate} \vskip -7 mm \strut ';
     &Apache::lonxml::increment_counter();      &Apache::lonxml::increment_counter();
         } else {          } else {
     $question.=' \\\\ '.$optionlist.$text."\n";      $question.=' \\\\ '.$optionlist.$text."\n";

Removed from v.1.6  
changed lines
  Added in v.1.7


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