[LON-CAPA-cvs] cvs: loncom /enrollment Autoupdate.pl

[raeburn]

raeburn		Sun Dec 18 01:23:22 2011 EDT

  Modified files:              
    /loncom/enrollment	Autoupdate.pl 
  Log:
  - Log error if localenroll::allusers_info() returns other than 'ok'.
  
  
Index: loncom/enrollment/Autoupdate.pl
diff -u loncom/enrollment/Autoupdate.pl:1.21 loncom/enrollment/Autoupdate.pl:1.22
--- loncom/enrollment/Autoupdate.pl:1.21	Fri Oct 14 18:14:31 2011
+++ loncom/enrollment/Autoupdate.pl	Sun Dec 18 01:23:21 2011
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 # Automated Userinfo update script
-# $Id: Autoupdate.pl,v 1.21 2011/10/14 18:14:31 raeburn Exp $
+# $Id: Autoupdate.pl,v 1.22 2011/12/18 01:23:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -68,7 +68,14 @@
         my (%users,%instusers,%instids);
         my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom;
         &descend_tree($dom,$dir,0,\%users,\%courses);
-        next if (&localenroll::allusers_info($dom,\%instusers,\%instids,\%users) ne 'ok');
+        my $resp = &localenroll::allusers_info($dom,\%instusers,\%instids,\%users);
+        if ($resp ne 'ok') {
+            print $fh &mt('Problem retrieving institutional data for users in domain: [_1].',$dom)."\n".
+                      &mt('Error: [_1].',$resp)."\n".
+                      "-- \n".&Apache::lonlocal::locallocaltime(time).' '.
+                      &mt('Autoupdate messages end')."\n*******************\n\n";
+            next;
+        }
         my (%unamechg,%possnames);
         my @types = ('active','future');
         my @roles = ('st');