[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Sat Jul 28 17:14:10 2007 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  user_search() - skip to next server if queryid is invalid. 
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.901 loncom/lonnet/perl/lonnet.pm:1.902
--- loncom/lonnet/perl/lonnet.pm:1.901	Thu Jul 26 11:43:35 2007
+++ loncom/lonnet/perl/lonnet.pm	Sat Jul 28 17:14:09 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.901 2007/07/26 15:43:35 albertel Exp $
+# $Id: lonnet.pm,v 1.902 2007/07/28 21:14:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -894,7 +894,7 @@
                        &escape($srch->{'srchterm'}),$tryserver);
             if ($queryid !~/^\Q$host\E\_/) {
                 &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 $maxtries = 1;