--- loncom/enrollment/Autoenroll.pl	2006/05/18 01:09:14	1.20
+++ loncom/enrollment/Autoenroll.pl	2006/07/08 17:29:15	1.21
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 #Automated Enrollment script
-# $Id: Autoenroll.pl,v 1.20 2006/05/18 01:09:14 raeburn Exp $
+# $Id: Autoenroll.pl,v 1.21 2006/07/08 17:29:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -51,7 +51,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,'Course'); 
         my %affiliates = ();
         my %enrollvar = ();
         my %reply = ();