--- loncom/enrollment/Autoenroll.pl	2004/03/18 19:40:39	1.8
+++ loncom/enrollment/Autoenroll.pl	2004/06/09 17:01:56	1.10
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 #Automated Enrollment script
-# $Id: Autoenroll.pl,v 1.8 2004/03/18 19:40:39 raeburn Exp $
+# $Id: Autoenroll.pl,v 1.10 2004/06/09 17:01:56 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('automated',$dom,\%affiliates,\%reply);
 
 # Now go through classes and perform required enrollment changes.
     open (my $fh,">>$logfile");