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

Diff for /loncom/homework/matchresponse.pm between versions 1.70 and 1.71

version 1.70, 2008/08/08 16:37:13 version 1.71, 2008/09/10 10:11:14
Line 33  use Math::Random(); Line 33  use Math::Random();
 use Apache::optionresponse();  use Apache::optionresponse();
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonnet;  use Apache::lonnet;
   use Apache::lonxml;
   
 BEGIN {  BEGIN {
     &Apache::lonxml::register('Apache::matchresponse',('matchresponse'));      &Apache::lonxml::register('Apache::matchresponse',('matchresponse'));
Line 507  sub displayfoils { Line 508  sub displayfoils {
  $optionlist="<option></option>\n";   $optionlist="<option></option>\n";
     } else {      } else {
  if ($Apache::lonhomework::type ne 'exam') {   if ($Apache::lonhomework::type ne 'exam') {
     $optionlist='\framebox[5 mm][s]{\tiny\strut}';                      if($env{'form.pdfFormFields'} eq 'yes') {
  }                          my $fieldname = $env{'request.symb'} . '&part_'. $Apache::inputtags::part .'&matchresponse'. '&HWVAL_' . $Apache::inputtags::response['-1'] . ':' . $temp . '&submit_' . $Apache::inputtags::part . '&';
                           $optionlist = &Apache::lonxml::print_pdf_start_combobox($fieldname);
                       } else {
                           $optionlist='\framebox[10 mm][s]{\tiny\strut}';
                       }
                    }
     }      }
     my $option;      my $option;
     foreach $option (@used_letters) {      foreach $option (@used_letters) {
  if ($option eq $last_letter) {   if ($option eq $last_letter) {
     if ($target ne 'tex') {$optionlist.="<option selected=\"on\">$option</option>\n";}      if ($target ne 'tex') {
                           $optionlist.="<option selected=\"on\">$option</option>\n";
                       } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
                           $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option);
                       }
  } else {   } else {
     if ($target ne 'tex') {$optionlist.="<option>$option</option>\n";}      if ($target ne 'tex') {
                           $optionlist.="<option>$option</option>\n";
                       } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
                           $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option);
                       }
  }   }
     }      }
     if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') {      if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') {
Line 558  sub displayfoils { Line 572  sub displayfoils {
  # Note that if left or right positioned, we must   # Note that if left or right positioned, we must
  # confine the bubbles to righttabsize:   # confine the bubbles to righttabsize:
  #   #
  if ($Apache::lonhomework::type eq 'exam') {   if ($Apache::lonhomework::type eq 'exam' && $env{'form.pdfFormFields'} ne 'yes') {
     $question.=' '.$optionlist.$text."\n";      $question.=' '.$optionlist.$text."\n";
     my @emptyItems = ();      my @emptyItems = ();
     for (my $i=0;$i<=$#used_letters;$i++) {push @emptyItems, ' ';}      for (my $i=0;$i<=$#used_letters;$i++) {push @emptyItems, ' ';}
Line 573  sub displayfoils { Line 587  sub displayfoils {
     $question .= '\end{list} \vskip -8 mm \strut ';      $question .= '\end{list} \vskip -8 mm \strut ';
     $internal_counter++;      $internal_counter++;
         } else {          } else {
     $question.=' '.$optionlist.$text.'\strut\\\\\strut '."\n";                      if($env{'form.pdfFormFields'} eq 'yes') {
                           $question .= " $optionlist ". &Apache::lonxml::print_pdf_end_combobox($text).'\strut';
                       } else {
                           $question.=' '.$optionlist.$text.'\strut\\\\\strut '."\n";
                       }
  }   }
             }               } 
     $temp++;      $temp++;
Removed from v.1.70  
changed lines
  Added in v.1.71

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