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

Diff for /loncom/lti/ltiroster.pm between versions 1.1 and 1.2

version 1.1, 2017/12/07 15:36:25 version 1.2, 2017/12/09 16:24:03
Line 85  sub handler { Line 85  sub handler {
     ($cdom,$cnum) = &LONCAPA::ltiutils::get_loncapa_course($r->dir_config('lonHostID'),      ($cdom,$cnum) = &LONCAPA::ltiutils::get_loncapa_course($r->dir_config('lonHostID'),
                                                            $cid,\%errors);                                                             $cid,\%errors);
     unless ($cdom && $cnum) {      unless ($cdom && $cnum) {
         $errors{4} = 1;  
         &invalid_request($r,\%errors);          &invalid_request($r,\%errors);
         return OK;          return OK;
     }      }
Line 98  sub handler { Line 97  sub handler {
         &LONCAPA::ltiutils::get_tool_instance($cdom,$cnum,$digsymb,undef,\%errors);          &LONCAPA::ltiutils::get_tool_instance($cdom,$cnum,$digsymb,undef,\%errors);
   
     unless ($marker) {      unless ($marker) {
         $errors{5} = 1;          $errors{4} = 1;
         &invalid_request($r,\%errors);          &invalid_request($r,\%errors);
         return OK;          return OK;
     }      }
Line 126  sub handler { Line 125  sub handler {
     unless (LONCAPA::ltiutils::verify_request($params,$protocol,$r->hostname,$r->uri,      unless (LONCAPA::ltiutils::verify_request($params,$protocol,$r->hostname,$r->uri,
                                               $env{'request.method'},$consumer_secret,                                                $env{'request.method'},$consumer_secret,
                                               \%errors)) {                                                \%errors)) {
         $errors{6} = 1;  
         &invalid_request($r,\%errors);          &invalid_request($r,\%errors);
         return OK;          return OK;
     }      }
Line 137  sub handler { Line 135  sub handler {
   
     unless (&LONCAPA::ltiutils::check_nonce($params->{'oauth_nonce'},$params->{'oauth_timestamp'},      unless (&LONCAPA::ltiutils::check_nonce($params->{'oauth_nonce'},$params->{'oauth_timestamp'},
                                             $nonce_lifetime,$cdom,$r->dir_config('lonLTIDir'))) {                                              $nonce_lifetime,$cdom,$r->dir_config('lonLTIDir'))) {
         $errors{7} = 1;          $errors{16} = 1;
         &invalid_request($r,\%errors);          &invalid_request($r,\%errors);
         return OK;          return OK;
     }      }
Line 149  sub handler { Line 147  sub handler {
   
     unless (&LONCAPA::ltiutils::verify_lis_item($rostersig,'roster',$digsymb,undef,$cdom,$cnum,      unless (&LONCAPA::ltiutils::verify_lis_item($rostersig,'roster',$digsymb,undef,$cdom,$cnum,
                                                 \%toolsettings,\%ltitools,\%errors)) {                                                  \%toolsettings,\%ltitools,\%errors)) {
         $errors{8} = 1;  
         &invalid_request($r,\%errors);          &invalid_request($r,\%errors);
         return OK;          return OK;
     }      }
Line 165  sub handler { Line 162  sub handler {
     }      }
   
     unless (keys(%maproles)) {      unless (keys(%maproles)) {
         $errors{9} = 1;           $errors{21} = 1; 
         &invalid_request($r,\%errors);          &invalid_request($r,\%errors);
         return OK;          return OK;
     }      }
Line 392  sub invalid_request { Line 389  sub invalid_request {
     my ($r,$errors) = @_;      my ($r,$errors) = @_;
     my $errormsg;      my $errormsg;
     if (ref($errors) eq 'HASH') {      if (ref($errors) eq 'HASH') {
         $errormsg = join('&&',keys(%{$errors}));          $errormsg = join(',',keys(%{$errors}));
     }      }
     &Apache::loncommon::content_type($r,'text/xml');      &Apache::loncommon::content_type($r,'text/xml');
     $r->send_http_header;      $r->send_http_header;
Removed from v.1.1  
changed lines
  Added in v.1.2

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