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

Diff for /loncom/lti/ltiroster.pm between versions 1.4 and 1.6

version 1.4, 2018/08/14 21:42:36 version 1.6, 2022/03/29 20:12:46
Line 145  sub handler { Line 145  sub handler {
     if ($ENV{'SERVER_PORT'} == 443) {      if ($ENV{'SERVER_PORT'} == 443) {
         $protocol = 'https';          $protocol = 'https';
     }      }
     unless (LONCAPA::ltiutils::verify_request($params,$protocol,$r->hostname,$r->uri,      unless (LONCAPA::ltiutils::verify_request($oauthtype,$protocol,$r->hostname,$r->uri,
                                               $env{'request.method'},$consumer_secret,                                                $env{'request.method'},$consumer_secret,
                                               $params,$authheader,\%errors)) {                                                $params,$authheader,\%errors)) {
         &invalid_request($r,\%errors);          &invalid_request($r,\%errors);
Line 280  END Line 280  END
             }              }
             $r->print("    <member>\n");              $r->print("    <member>\n");
             my ($uname,$udom) = split(/:/,$user);              my ($uname,$udom) = split(/:/,$user);
             my $digest_user = &Encode::decode_utf8($uname.':'.$udom);              my $digest_user = &Encode::decode('UTF-8',$uname.':'.$udom);
             $digest_user = &Digest::SHA::sha1_hex($digest_user);              $digest_user = &Digest::SHA::sha1_hex($digest_user);
             $r->print('      <user_id>'.$digest_user.'</user_id>'."\n");              $r->print('      <user_id>'.$digest_user.'</user_id>'."\n");
             if (exists($students{$user})) {              if (exists($students{$user})) {
Line 348  END Line 348  END
                 next unless ($students{$user}[$statusidx] eq 'Active');                  next unless ($students{$user}[$statusidx] eq 'Active');
                 $r->print("    <member>\n");                  $r->print("    <member>\n");
                 my ($uname,$udom) = split(/:/,$user);                  my ($uname,$udom) = split(/:/,$user);
                 my $digest_user = &Encode::decode_utf8($uname.':'.$udom);                  my $digest_user = &Encode::decode('UTF-8',$uname.':'.$udom);
                 $digest_user = &Digest::SHA::sha1_hex($digest_user);                  $digest_user = &Digest::SHA::sha1_hex($digest_user);
                 $r->print('      <user_id>'.$digest_user.'</user_id>'."\n");                  $r->print('      <user_id>'.$digest_user.'</user_id>'."\n");
                 if ($needroles) {                  if ($needroles) {
Removed from v.1.4  
changed lines
  Added in v.1.6

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