loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.901, 2007/07/26 15:43:35	version 1.902, 2007/07/28 21:14:09
Line 894 sub usersearch {	Line 894 sub usersearch {
&escape($srch->{'srchterm'}),$tryserver);	&escape($srch->{'srchterm'}),$tryserver);
if ($queryid !~/^\Q$host\E\_/) {	if ($queryid !~/^\Q$host\E\_/) {
&logthis('usersearch: invalid queryid: '.$queryid.' for host: '.$host.'in domain '.$dom.' and server: '.$tryserver);	&logthis('usersearch: invalid queryid: '.$queryid.' for host: '.$host.'in domain '.$dom.' and server: '.$tryserver);
return 'error: '.$queryid;	next;
}	}
my $reply = &get_query_reply($queryid);	my $reply = &get_query_reply($queryid);
my $maxtries = 1;	my $maxtries = 1;