--- loncom/lonnet/perl/lonnet.pm 2017/03/26 23:53:30 1.1172.2.92 +++ loncom/lonnet/perl/lonnet.pm 2017/05/13 13:58:49 1.1172.2.93 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1172.2.92 2017/03/26 23:53:30 raeburn Exp $ +# $Id: lonnet.pm,v 1.1172.2.93 2017/05/13 13:58:49 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -8085,7 +8085,7 @@ sub fetch_enrollment_query { &logthis('fetch_enrollment_query: invalid queryid: '.$queryid.' for host: '.$host.' and homeserver: '.$homeserver.' context: '.$context.' '.$cnum); return 'error: '.$queryid; } - my $reply = &get_query_reply($queryid,$sleep.$loopmax); + my $reply = &get_query_reply($queryid,$sleep,$loopmax); my $tries = 1; while (($reply=~/^timeout/) && ($tries < $maxtries)) { $reply = &get_query_reply($queryid,$sleep,$loopmax);