--- loncom/enrollment/Autoenroll.pl	2006/05/17 14:48:49	1.19
+++ loncom/enrollment/Autoenroll.pl	2006/07/21 17:47:36	1.22
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 #Automated Enrollment script
-# $Id: Autoenroll.pl,v 1.19 2006/05/17 14:48:49 albertel Exp $
+# $Id: Autoenroll.pl,v 1.22 2006/07/21 17:47:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,6 +33,8 @@
     use Apache::lonnet;
     use Apache::loncoursedata;
     use Apache::lonmsg;
+    use Apache::longroup;
+    use Apache::loncommon;
     use HTML::Entities;
 
 # Determine the library server's domain and hostID
@@ -50,7 +52,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 = ();