[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.2.2 and 1.59

version 1.57.2.2, 2008/12/18 20:04:46 version 1.59, 2008/10/24 16:22:54
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 48  sub start_rankresponse { Line 50  sub start_rankresponse {
     if ($target eq 'meta') {      if ($target eq 'meta') {
  $result=&Apache::response::meta_package_write('rankresponse');   $result=&Apache::response::meta_package_write('rankresponse');
     } elsif ($target eq 'edit' ) {      } elsif ($target eq 'edit' ) {
         $result.=&Apache::edit::start_table($token)   $result.=&Apache::edit::start_table($token)
            .'<tr><td>'.&Apache::lonxml::description($token).'</td>'             .'<tr><td>'.&Apache::lonxml::description($token).'</td>'
            .'<td><span class="LC_nobreak">'.&mt('Delete?').' '             .'<td>span class="LC_nobreak">'.&mt('Delete?').' '
            .&Apache::edit::deletelist($target,$token)             .&Apache::edit::deletelist($target,$token)
            .'</span></td>'             .'</span></td>'
            .'<td>&nbsp;'.&Apache::edit::end_row()             .'<td>&nbsp'.&Apache::edit::end_row()
            .&Apache::edit::start_spanning_row();             .&Apache::edit::start_spanning_row();
   
  $result.=   $result.=
Line 319  sub displayfoils { Line 321  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 356  sub displayfoils { Line 377  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.2.2  
changed lines
  Added in v.1.59

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