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

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

version 1.1, 2017/12/09 01:36:59 version 1.4, 2017/12/12 02:13:21
Line 141  sub handler { Line 141  sub handler {
   
     unless (&LONCAPA::ltiutils::check_nonce($params->{'oauth_nonce'},$params->{'oauth_timestamp'},      unless (&LONCAPA::ltiutils::check_nonce($params->{'oauth_nonce'},$params->{'oauth_timestamp'},
                                             $ltitools{'lifetime'},$cdom,$r->dir_config('lonLTIDir'))) {                                              $ltitools{'lifetime'},$cdom,$r->dir_config('lonLTIDir'))) {
         $errors{15} = 1;          $errors{16} = 1;
         &invalid_request($r,$params,\%errors);          &invalid_request($r,$params,\%errors);
         return OK;          return OK;
     }      }
Line 168  sub handler { Line 168  sub handler {
             %maproles = %{$ltitools{'roles'}};              %maproles = %{$ltitools{'roles'}};
         }          }
         unless (keys(%maproles)) {          unless (keys(%maproles)) {
             $errors{20} = 1;              $errors{21} = 1;
             &invalid_request($r,$params,\%errors);              &invalid_request($r,$params,\%errors);
             return OK;              return OK;
         }          }
Line 205  sub handler { Line 205  sub handler {
             }              }
         }          }
         unless ($hasrole) {          unless ($hasrole) {
             $errors{21} = 1;              $errors{22} = 1;
             &invalid_request($r,$params,\%errors);              &invalid_request($r,$params,\%errors);
             return OK;              return OK;
         }          }
     } else {      } else {
         $errors{22} = 1;          $errors{23} = 1;
         &invalid_request($r,$params,\%errors);          &invalid_request($r,$params,\%errors);
         return OK;          return OK;
     }      }
Line 222  sub handler { Line 222  sub handler {
   
     my ($result,$resulttype,$lang,$pcf);      my ($result,$resulttype,$lang,$pcf);
     if (exists($params->{'result_resultvaluesourcedid'})) {      if (exists($params->{'result_resultvaluesourcedid'})) {
         $resulttype = 'decimal';  
     } else {  
         $resulttype = $params->{'result_resultvaluesourcedid'};          $resulttype = $params->{'result_resultvaluesourcedid'};
         $resulttype =~ s/(^\s+|\s+)$//g;          $resulttype =~ s/(^\s+|\s+)$//g;
       } else {
           $resulttype = 'decimal';
     }       } 
     $result = $params->{'result_resultscore_textstring'};      $result = $params->{'result_resultscore_textstring'};
     $result =~ s/(^\s+|\s+)$//g;      $result =~ s/(^\s+|\s+)$//g;
Line 245  sub handler { Line 245  sub handler {
                      };                       };
             }              }
             if ($@) {              if ($@) {
                 $errors{22} = 1;                  $errors{24} = 1;
                 &invalid_request($r,$params,\%errors);                  &invalid_request($r,$params,\%errors);
                 return OK;                  return OK;
             }              }
Line 283  sub handler { Line 283  sub handler {
                 }                  }
             }              }
             if (%newrecord) {              if (%newrecord) {
                   $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);
                   delete($env{'request.course.id'});
                 if (($result eq 'ok') || ($result eq 'con_delayed')) {                  if (($result eq 'ok') || ($result eq 'con_delayed')) {
                     &success($r,$params->{'sourcedid'},$resulttype,$result,$lang);                      &success($r,$params->{'sourcedid'},$resulttype,$result,$lang);
                 } else {                  } else {
                     $errors{23} = 1;                      $errors{25} = 1;
                     &invalid_request($r,$params,\%errors);                      &invalid_request($r,$params,\%errors);
                 }                  }
             }              }
         } else {          } else {
             $errors{24} = 1;              $errors{26} = 1;
             &invalid_request($r,$params,\%errors);              &invalid_request($r,$params,\%errors);
         }          }
     } else {      } else {
         $errors{25} = 1;          $errors{27} = 1;
         &invalid_request($r,$params,\%errors);          &invalid_request($r,$params,\%errors);
     }      }
     return OK;      return OK;
Removed from v.1.1  
changed lines
  Added in v.1.4

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