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

Diff for /loncom/homework/rankresponse.pm between versions 1.57 and 1.58

version 1.57, 2008/08/08 16:37:13 version 1.58, 2008/10/08 13:58:50
Line 30  use strict; Line 30  use strict;
 use HTML::Entities();  use HTML::Entities();
 use Apache::optionresponse();  use Apache::optionresponse();
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonxml;
   use Apache::lonnet;
   
 BEGIN {  BEGIN {
     &Apache::lonxml::register('Apache::rankresponse',('rankresponse'));      &Apache::lonxml::register('Apache::rankresponse',('rankresponse'));
Line 317  sub displayfoils { Line 319  sub displayfoils {
  my %lastresponse=&Apache::lonnet::str2hash($lastresponse);    my %lastresponse=&Apache::lonnet::str2hash($lastresponse); 
  my @alp = splice @alphabet, 0, $#whichopt + 1;   my @alp = splice @alphabet, 0, $#whichopt + 1;
  my $internal_counter=$Apache::lonxml::counter;   my $internal_counter=$Apache::lonxml::counter;
  foreach my $name (@whichfoils) {          if($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
               $result .= '\strut \\\\ \strut \\\\' ;
           }
           foreach my $name (@whichfoils) {
     my $lastopt=$lastresponse{$name};      my $lastopt=$lastresponse{$name};
     my $optionlist='';      my $optionlist='';
     if ($target ne 'tex') {$optionlist="<option></option>\n";}      if ($target ne 'tex') {
                   $optionlist = "<option></option>\n";
               } 
               if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
                   my $fieldname = $env{'request.symb'}.'&part_'.$Apache::inputtags::part.'&rankresponse'.'&HWVAL_'.$Apache::inputtags::response['-1'].':'.$temp;
                   $optionlist =  &Apache::lonxml::print_pdf_start_combobox($fieldname);
               }
     my $option;      my $option;
     foreach $option (@whichopt) {      foreach $option (@whichopt) {
  if ($option eq $lastopt) {   if ($option eq $lastopt) {
     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') {
  $optionlist='<select onchange="javascript:setSubmittedPart(\''.   $optionlist='<select onchange="javascript:setSubmittedPart(\''.
   $part.'\');" name="HWVAL_'.    $part.'\');" name="HWVAL_'.
     $Apache::inputtags::response[-1].':'.$temp.'">'.      $Apache::inputtags::response[-1].':'.$temp.'">'.
         $optionlist."</select>\n";          $optionlist."</select>\n";
     } else {      } elsif ($env{'form.pdfFormFields'} eq 'yes') {
                   #do nothing
               } else {
  $optionlist=' '.$temp.' '.$optionlist.' ';   $optionlist=' '.$temp.' '.$optionlist.' ';
     }      }
     my $text=$Apache::response::foilgroup{$name.'.text'};      my $text=$Apache::response::foilgroup{$name.'.text'};
Line 354  sub displayfoils { Line 375  sub displayfoils {
     $result.='\vskip -1 mm\noindent\begin{enumerate}\item[\textbf{'.$internal_counter.'}.]'.&Apache::optionresponse::bubbles(\@alp,\@whichopt,'rankresponse').'\end{enumerate} \vskip -8 mm \strut ';      $result.='\vskip -1 mm\noindent\begin{enumerate}\item[\textbf{'.$internal_counter.'}.]'.&Apache::optionresponse::bubbles(\@alp,\@whichopt,'rankresponse').'\end{enumerate} \vskip -8 mm \strut ';
     $internal_counter++;      $internal_counter++;
  } else {   } else {
     $result.=' \vskip 0mm \framebox[5 mm][s]{\tiny\strut} '.$text."\n";                      if($env{'form.pdfFormFields'} ne 'yes') {
           $result.=' \vskip 0mm \framebox[5 mm][s]{\tiny\strut} '.$text."\n";
                       } else {
                           $result.= $optionlist.' '. &Apache::lonxml::print_pdf_end_combobox($text).'\strut \\\\';
                       }
  }   }
     }      }
     $temp++;      $temp++;
Removed from v.1.57  
changed lines
  Added in v.1.58

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