--- loncom/enrollment/Autoenroll.pl	2004/06/17 18:31:24	1.11
+++ loncom/enrollment/Autoenroll.pl	2004/11/27 17:23:09	1.12
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 #Automated Enrollment script
-# $Id: Autoenroll.pl,v 1.11 2004/06/17 18:31:24 raeburn Exp $
+# $Id: Autoenroll.pl,v 1.12 2004/11/27 17:23:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -50,7 +50,7 @@
         if (! &localenroll::run($dom)) { next; }
         $ENV{'user.domain'} = $dom;
     # Determine the courses
-        my %courses = &Apache::lonnet::courseiddump($dom,'.',1,1,\@hostids); 
+        my %courses = &Apache::lonnet::courseiddump($dom,'.',1,'.','.',1,\@hostids); 
         my %affiliates = ();
         my %enrollvar = ();
         my %reply = ();
@@ -122,6 +122,7 @@
 # Now go through classes and perform required enrollment changes.
         open (my $fh,">>$logfile");
         print $fh "********************\n".localtime(time)." Enrollment messages start --\n";
+        print $fh "Response from fetch_enrollment_query was $outcome\n";
         foreach my $crs (sort keys %enrollvar) {
             my $logmsg = '';
             my $newusermsg = '';