--- loncom/lti/ltiroster.pm	2018/08/14 21:42:36	1.4
+++ loncom/lti/ltiroster.pm	2022/03/29 20:12:46	1.6
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # LTI Consumer Module to respond to a course roster request.
 #
-# $Id: ltiroster.pm,v 1.4 2018/08/14 21:42:36 raeburn Exp $
+# $Id: ltiroster.pm,v 1.6 2022/03/29 20:12:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -145,7 +145,7 @@ sub handler {
     if ($ENV{'SERVER_PORT'} == 443) {
         $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,
                                               $params,$authheader,\%errors)) {
         &invalid_request($r,\%errors);
@@ -280,7 +280,7 @@ END
             }
             $r->print("    <member>\n");
             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);
             $r->print('      <user_id>'.$digest_user.'</user_id>'."\n");
             if (exists($students{$user})) {
@@ -348,7 +348,7 @@ END
                 next unless ($students{$user}[$statusidx] eq 'Active');
                 $r->print("    <member>\n");
                 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);
                 $r->print('      <user_id>'.$digest_user.'</user_id>'."\n");
                 if ($needroles) {