loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.908, 2007/08/29 22:19:24	version 1.909, 2007/08/31 12:33:29
Line 861 sub inst_directory_query {	Line 861 sub inst_directory_query {
my $udom = $srch->{'srchdomain'};	my $udom = $srch->{'srchdomain'};
my %results;	my %results;
my $homeserver = &domain($udom,'primary');	my $homeserver = &domain($udom,'primary');
	my $outcome;
if ($homeserver ne '') {	if ($homeserver ne '') {
my $queryid=&reply("querysend:instdirsearch:".	my $queryid=&reply("querysend:instdirsearch:".
&escape($srch->{'srchby'}).':'.	&escape($srch->{'srchby'}).':'.
Line 880 sub inst_directory_query {	Line 881 sub inst_directory_query {
}	}

if (!&error($response) && $response ne 'refused') {	if (!&error($response) && $response ne 'refused') {
my @matches = split(/\n/,$response);	if ($response eq 'unavailable') {
foreach my $match (@matches) {	$outcome = $response;
my ($key,$value) = split(/=/,$match);	} else {
$results{&unescape($key).':'.$udom} = &thaw_unescape($value);	$outcome = 'ok';
	my @matches = split(/\n/,$response);
	foreach my $match (@matches) {
	my ($key,$value) = split(/=/,$match);
	$results{&unescape($key).':'.$udom} = &thaw_unescape($value);
	}
}	}
}	}
}	}
return %results;	return ($outcome,%results);
}	}

sub usersearch {	sub usersearch {