--- loncom/lonnet/perl/lonnet.pm 2015/08/05 18:47:25 1.1290 +++ loncom/lonnet/perl/lonnet.pm 2015/08/10 15:18:21 1.1291 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1290 2015/08/05 18:47:25 raeburn Exp $ +# $Id: lonnet.pm,v 1.1291 2015/08/10 15:18:21 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1974,11 +1974,10 @@ sub get_multiple_instusers { $uname = $key; } my ($resp,%info) = &get_instuser($udom,$uname,$id); + $outcome = $resp; if ($resp eq 'ok') { %{$results} = (%{$results}, %info); - $outcome = 'ok'; } else { - $outcome = $resp; last; } } @@ -1986,7 +1985,7 @@ sub get_multiple_instusers { if (($response eq 'unavailable') || ($response eq 'invalid') || ($response eq 'timeout')) { $outcome = $response; } else { - ($outcome,my $userdata) = split(/:/,$response,2); + ($outcome,my $userdata) = split(/=/,$response,2); if ($outcome eq 'ok') { $results = &thaw_unescape($userdata); }