--- loncom/lonnet/perl/lonnet.pm 2016/09/21 04:43:38 1.1321 +++ loncom/lonnet/perl/lonnet.pm 2016/09/21 04:47:57 1.1322 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1321 2016/09/21 04:43:38 raeburn Exp $ +# $Id: lonnet.pm,v 1.1322 2016/09/21 04:47:57 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -7920,7 +7920,7 @@ sub fetch_enrollment_query { &logthis('fetch_enrollment_query error: '.$reply.' for '.$dom.' '.$env{'user.name'}.' for '.$queryid.' context: '.$context.' '.$cnum.' maxtries: '.$maxtries.' tries: '.$tries); } else { my @responses = split(/:/,$reply); - if (grep { $_ eq $homeserver } ¤t_machine_ids()) { + if (grep { $_ eq $homeserver } ¤t_machine_ids()) { foreach my $line (@responses) { my ($key,$value) = split(/=/,$line,2); $$replyref{$key} = $value;