loncom/lti/ltiroster.pm - diff

Return to ltiroster.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.5, 2018/08/14 23:50:20	version 1.6, 2022/03/29 20:12:46
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) {