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

Diff for /loncom/lti/ltipassback.pm between versions 1.4 and 1.5

version 1.4, 2017/12/12 02:13:21 version 1.5, 2017/12/15 17:07:09
Line 226  sub handler { Line 226  sub handler {
         $resulttype =~ s/(^\s+|\s+)$//g;          $resulttype =~ s/(^\s+|\s+)$//g;
     } else {      } else {
         $resulttype = 'decimal';          $resulttype = 'decimal';
     }       }
     $result = $params->{'result_resultscore_textstring'};      $result = $params->{'result_resultscore_textstring'};
     $result =~ s/(^\s+|\s+)$//g;      $result =~ s/(^\s+|\s+)$//g;
     my $posslang = $params->{'result_resultscore_language'};      my $posslang = $params->{'result_resultscore_language'};
Line 270  sub handler { Line 270  sub handler {
             my %newrecord=();              my %newrecord=();
             my $reckey = 'resource.0.solved';               my $reckey = 'resource.0.solved'; 
             my %record = &Apache::lonnet::restore($symb,$cdom.'_'.$cnum,$udom,$uname);              my %record = &Apache::lonnet::restore($symb,$cdom.'_'.$cnum,$udom,$uname);
               my $tries = 0;
               if ($record{'resource.0.tries'} =~ /^\d$/) {
                   $tries = $record{'resource.0.tries'};
               }
             if ($record{'resource.0.awarded'} ne $pcf) {              if ($record{'resource.0.awarded'} ne $pcf) {
                 $newrecord{'resource.0.awarded'}  = $pcf;                  $newrecord{'resource.0.awarded'}  = $pcf;
             }              }
             if ($pcf == 0) {              if ($pcf == 0) {
                 if ($record{$reckey} ne 'incorrect_by_override') {                  if ($record{$reckey} ne 'incorrect_by_passback') {
                     $newrecord{$reckey} = 'incorrect_by_override';                      $newrecord{$reckey} = 'incorrect_by_passback';
                 }                  }
             } else {              } else {
                 if ($record{$reckey} ne 'correct_by_override') {                  if ($record{$reckey} ne 'correct_by_passback') {
                     $newrecord{$reckey} = 'correct_by_override';                      $newrecord{$reckey} = 'correct_by_passback';
                 }                  }
             }              }
             if (%newrecord) {              if (%newrecord) {
                   $newrecord{'resource.0.tries'} = 1 + $tries;
                 $env{'request.course.id'} = $cdom.'_'.$cnum;                  $env{'request.course.id'} = $cdom.'_'.$cnum;
                 my $result = &Apache::lonnet::cstore(\%newrecord,$symb,$cdom.'_'.$cnum,                  my $result = &Apache::lonnet::cstore(\%newrecord,$symb,$cdom.'_'.$cnum,
                                                      $udom,$uname);                                                       $udom,$uname);
Line 293  sub handler { Line 298  sub handler {
                     $errors{25} = 1;                      $errors{25} = 1;
                     &invalid_request($r,$params,\%errors);                      &invalid_request($r,$params,\%errors);
                 }                  }
               } else {
                   &success($r,$params->{'sourcedid'},$resulttype,$result,$lang);
             }              }
         } else {          } else {
             $errors{26} = 1;              $errors{26} = 1;
Removed from v.1.4  
changed lines
  Added in v.1.5

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