loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.899, 2007/07/26 02:09:24	version 1.900, 2007/07/26 04:05:43
Line 866 sub inst_directory_query {	Line 866 sub inst_directory_query {
&escape($srch->{'srchby'}).':'.	&escape($srch->{'srchby'}).':'.
&escape($srch->{'srchterm'}).':'.	&escape($srch->{'srchterm'}).':'.
$srch->{'srchtype'},$homeserver);	$srch->{'srchtype'},$homeserver);
unless ($response eq 'refused') {	if ($response ne 'refused') {
my @matches = split/&/,$response;	my @matches = split/&/,$response;
foreach my $match (@matches) {	foreach my $match (@matches) {
my ($key,$value) = split(/=/,$match);	my ($key,$value) = split(/=/,$match);
Line 906 sub usersearch {	Line 906 sub usersearch {
if ( ($reply =~/^timeout/) \|\| ($reply =~/^error/) ) {	if ( ($reply =~/^timeout/) \|\| ($reply =~/^error/) ) {
&logthis('usersrch error: '.$reply.' for '.$dom.' - searching for : '.$srch->{'srchterm'}.' by '.$srch->{'srchby'}.' ('.$srch->{'srchtype'}.') - maxtries: '.$maxtries.' tries: '.$tries);	&logthis('usersrch error: '.$reply.' for '.$dom.' - searching for : '.$srch->{'srchterm'}.' by '.$srch->{'srchby'}.' ('.$srch->{'srchtype'}.') - maxtries: '.$maxtries.' tries: '.$tries);
} else {	} else {
my @matches = split/&/,$reply;	my @matches = split(/&/,$reply);
foreach my $match (@matches) {	foreach my $match (@matches) {
my @items = split(/:/,$match);	my @items = split(/:/,$match);
my ($uname,$udom,%userhash);	my ($uname,$udom,%userhash);