[LON-CAPA-cvs] cvs: loncom /automation batchcreatecourse.pm /enrollment Autoenroll.pl
raeburn
lon-capa-cvs@mail.lon-capa.org
Sat, 08 Jul 2006 17:29:24 -0000
raeburn Sat Jul 8 13:29:24 2006 EDT
Modified files:
/loncom/enrollment Autoenroll.pl
/loncom/automation batchcreatecourse.pm
Log:
Autoenroll.pl should only perform auto-enrollment in standard courses. Documentation corrected in batchcoursecreate.pm.
Index: loncom/enrollment/Autoenroll.pl
diff -u loncom/enrollment/Autoenroll.pl:1.20 loncom/enrollment/Autoenroll.pl:1.21
--- loncom/enrollment/Autoenroll.pl:1.20 Wed May 17 21:09:14 2006
+++ loncom/enrollment/Autoenroll.pl Sat Jul 8 13:29:15 2006
@@ -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 = ();
Index: loncom/automation/batchcreatecourse.pm
diff -u loncom/automation/batchcreatecourse.pm:1.15 loncom/automation/batchcreatecourse.pm:1.16
--- loncom/automation/batchcreatecourse.pm:1.15 Tue Jun 27 17:28:21 2006
+++ loncom/automation/batchcreatecourse.pm Sat Jul 8 13:29:24 2006
@@ -1,5 +1,5 @@
#
-# $Id: batchcreatecourse.pm,v 1.15 2006/06/27 21:28:21 raeburn Exp $
+# $Id: batchcreatecourse.pm,v 1.16 2006/07/08 17:29:24 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -56,7 +56,7 @@
#<!DOCTYPE text>
#<class id="ss05ubw101">
# <title>Underwater Basket Weaving</title>
-# <crstype>Course</coursetype>
+# <crstype>Course</crstype>
# <coursecode>ss05ubw101</coursecode>
# <coursehome>msul1</coursehome>
# <coursedomain>msu</coursedomain>