--- loncom/enrollment/Autoenroll.pl	2004/02/08 15:47:45	1.7
+++ loncom/enrollment/Autoenroll.pl	2004/06/08 22:09:44	1.9
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 #Automated Enrollment script
-# $Id: Autoenroll.pl,v 1.7 2004/02/08 15:47:45 raeburn Exp $
+# $Id: Autoenroll.pl,v 1.9 2004/06/08 22:09:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,17 +39,18 @@
 #only run if configured to
     if (! &localenroll::run()) { exit; }
 
-# Determine the library server's domain
+# Determine the library server's domain and hostID
     my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf');
     my $dom = $$perlvarref{'lonDefDomain'};
     my $logfile = $$perlvarref{'lonDaemons'}.'/logs/autoenroll.log';
     $ENV{'user.domain'} = $dom;
+    my $hostid = $$perlvarref{'lonHostID'};
 
 # Determine the present time;
     my $timenow = time();
 
 # Determine the courses
-    my %courses = &Apache::lonnet::courseiddump($dom,'.',1); 
+    my %courses = &Apache::lonnet::courseiddump($dom,'.',1,$hostid); 
     my %affiliates = ();
     my %enrollvar = ();
     my %reply = ();
@@ -112,7 +113,7 @@
             }
         }
     }
-    &localenroll::fetch_enrollment($dom,\%affiliates,\%reply);
+    my $outcome = &Apache::lonnet::fetch_enrollment_query($hostid,$dom,\%affiliates,\%reply);
 
 # Now go through classes and perform required enrollment changes.
     open (my $fh,">>$logfile");
@@ -163,7 +164,15 @@
                 }
             }
         } else {
-            print $fh "No institutional classlist data could be retrieved for $crs\n";
+            if ( ($enrollvar{$crs}{autoadds} == 1) || ($enrollvar{$crs}{autodrops} == 1) ) {
+                if ( ($enrollvar{$crs}{autostart} < $timenow) && ( ($enrollvar{$crs}{autoend} > $timenow) || ($enrollvar{$crs}{autoend} == 0) ) ) {
+                    print $fh "No institutional classlist data could be retrieved for $crs\n";
+                } else {
+                    print $fh "Not within time window for auto-enrollment in $crs\n";
+                }
+            } else {
+                print $fh "Auto-enrollment not currently enabled for $crs\n";
+            }
         }
     }
     print $fh "-- ".localtime(time)." Enrollment messages end\n*******************\n\n";