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

Diff for /loncom/homework/matchresponse.pm between versions 1.88 and 1.91

version 1.88, 2013/04/25 17:58:32 version 1.91, 2014/05/05 17:40:54
Line 580  sub format_prior_answer { Line 580  sub format_prior_answer {
     my $output;      my $output;
           
     foreach my $name (@{ $foil_order }) {      foreach my $name (@{ $foil_order }) {
  my $item=shift(@items);   my $item = &HTML::Entities::encode(shift(@items),'<>&"');
           if ($item eq '') {
               $item = '&nbsp;';
           }
  $output .= '<tr><td>'.$item.'</td></tr>';   $output .= '<tr><td>'.$item.'</td></tr>';
     }      }
     return if (!defined($output));      return if (!defined($output));
Line 652  sub displayfoils { Line 655  sub displayfoils {
                 $newvariation = 1;                  $newvariation = 1;
             }              }
         }          }
         unless ((($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred') && (defined($env{'form.grade_symb'}))) || $newvariation) {          unless ($newvariation) {
     $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};              if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) ||
                   (($env{'form.grade_username'} eq $env{'user.name'}) &&
                    ($env{'form.grade_domain'} eq $env{'user.domain'}))) {
                   $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
               } else {
                   unless (($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') ||
                           ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) {
                       $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
                   }
               }
         }          }
   
  my %lastresponse=&Apache::lonnet::str2hash($lastresponse);       my %lastresponse=&Apache::lonnet::str2hash($lastresponse);    
  my @alphabet=('A'..'Z');   my @alphabet=('A'..'Z');
  my @used_letters=sort(keys(%letter_name_map));   my @used_letters=sort(keys(%letter_name_map));
Removed from v.1.88  
changed lines
  Added in v.1.91

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