loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1290, 2015/08/05 18:47:25	version 1.1291, 2015/08/10 15:18:21
Line 1974 sub get_multiple_instusers {	Line 1974 sub get_multiple_instusers {
$uname = $key;	$uname = $key;
}	}
my ($resp,%info) = &get_instuser($udom,$uname,$id);	my ($resp,%info) = &get_instuser($udom,$uname,$id);
	$outcome = $resp;
if ($resp eq 'ok') {	if ($resp eq 'ok') {
%{$results} = (%{$results}, %info);	%{$results} = (%{$results}, %info);
$outcome = 'ok';
} else {	} else {
$outcome = $resp;
last;	last;
}	}
}	}
Line 1986 sub get_multiple_instusers {	Line 1985 sub get_multiple_instusers {
if (($response eq 'unavailable') \|\| ($response eq 'invalid') \|\| ($response eq 'timeout')) {	if (($response eq 'unavailable') \|\| ($response eq 'invalid') \|\| ($response eq 'timeout')) {
$outcome = $response;	$outcome = $response;
} else {	} else {
($outcome,my $userdata) = split(/:/,$response,2);	($outcome,my $userdata) = split(/=/,$response,2);
if ($outcome eq 'ok') {	if ($outcome eq 'ok') {
$results = &thaw_unescape($userdata);	$results = &thaw_unescape($userdata);
}	}