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

Diff for /loncom/lti/ltipassback.pm between versions 1.2 and 1.3

version 1.2, 2017/12/09 16:20:24 version 1.3, 2017/12/09 16:24:03
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 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 288  sub handler { Line 288  sub handler {
                 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.2  
changed lines
  Added in v.1.3

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