loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.68, 2012/10/12 12:45:46
+version 1.69, 2013/04/30 03:03:34
  Line 377  sub displayfoils {
                  $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 @alp = splice @alphabet, 0, $#whichopt + 1;