[LON-CAPA-cvs] cvs: loncom /enrollment Autoupdate.pl
raeburn
raeburn@source.lon-capa.org
Thu, 25 Mar 2010 04:36:02 -0000
raeburn Thu Mar 25 04:36:02 2010 EDT
Modified files:
/loncom/enrollment Autoupdate.pl
Log:
- Users processed in alphabetical order, so logs are easier to use.
Index: loncom/enrollment/Autoupdate.pl
diff -u loncom/enrollment/Autoupdate.pl:1.17 loncom/enrollment/Autoupdate.pl:1.18
--- loncom/enrollment/Autoupdate.pl:1.17 Thu Mar 25 04:21:32 2010
+++ loncom/enrollment/Autoupdate.pl Thu Mar 25 04:36:02 2010
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#
# Automated Userinfo update script
-# $Id: Autoupdate.pl,v 1.17 2010/03/25 04:21:32 raeburn Exp $
+# $Id: Autoupdate.pl,v 1.18 2010/03/25 04:36:02 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -73,7 +73,7 @@
my @cdoms = ($dom);
my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom;
&descend_tree($dir,0,\%users);
- foreach my $uname (keys(%users)) {
+ foreach my $uname (sort(keys(%users))) {
next if ($courses{$dom.'_'.$uname});
my %userhash = &Apache::lonnet::userenvironment($dom,$uname,@info);
my (@inststatuses);