loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.1317, 2016/08/16 22:10:12
+version 1.1318, 2016/08/25 08:09:34
  Line 10202  sub dirlist {
              foreach my $user (sort(keys(%allusers))) {
                  push(@alluserslist,$user.'&user');
              }
-             return (\@alluserslist);
+             if (!%listerror) {
+                 # no errors
+                 return (\@alluserslist);
+             } elsif (scalar(keys(%servers)) == 1) {
+                 # one library server, one error
+                 my ($key) = keys(%listerror);
+                 return (\@alluserslist, $listerror{$key});
+             } elsif ( grep { $_ eq 'con_lost' } values(%listerror) ) {
+                 # con_lost indicates that we might miss data from at least one
+                 # library server
+                 return (\@alluserslist, 'con_lost');
+             } else {
+                 # multiple library servers and no con_lost -> data should be
+                 # complete.
+                 return (\@alluserslist);
+             }
          } else {
              return ([],'missing username');
          }