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

Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.156 and 1.157

version 1.156, 2013/04/25 17:58:32 version 1.157, 2013/04/30 03:03:34
Line 376  sub get_last_survey_response { Line 376  sub get_last_survey_response {
         }          }
     }      }
     $showanswer = &Apache::response::show_answer();      $showanswer = &Apache::response::show_answer();
     unless (      unless ($newvariation && !$showanswer) {
         (          if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) ||
             (              (($env{'form.grade_username'} eq $env{'user.name'}) &&
                 $Apache::lonhomework::history{"resource.$part.type"} eq               ($env{'form.grade_domain'} eq $env{'user.domain'}))) {
                 'anonsurvey'              $lastresponse = $Apache::lonhomework::history{"resource.$part.$id.submission"};
             )          } else {
             || ( $Apache::lonhomework::history{"resource.$part.type"} eq              unless (($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') ||
                 'anonsurveycred' )                      ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) {
         )                  $lastresponse = $Apache::lonhomework::history{"resource.$part.$id.submission"};
         && ( defined( $env{'form.grade_symb'} ) )              }
         || ( $newvariation && !$showanswer )          }
       )  
     {  
         $lastresponse =  
           $Apache::lonhomework::history{"resource.$part.$id.submission"};  
     }      }
     my %lastresponse = &Apache::lonnet::str2hash($lastresponse);      my %lastresponse = &Apache::lonnet::str2hash($lastresponse);
      
   
     return \%lastresponse;      return \%lastresponse;
   
Line 874  sub get_last_response { Line 869  sub get_last_response {
  }   }
     }      }
     unless ($newvariation) {      unless ($newvariation) {
  $lastresponse =          if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) ||
     $Apache::lonhomework::history{"resource.$part.$id.submission"};              (($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);
   
     return \%lastresponse;      return \%lastresponse;
Removed from v.1.156  
changed lines
  Added in v.1.157

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