--- loncom/lti/ltiroster.pm	2018/08/14 23:50:20	1.5
+++ 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.5 2018/08/14 23:50:20 raeburn Exp $
+# $Id: ltiroster.pm,v 1.6 2022/03/29 20:12:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -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) {