--- loncom/automation/batchcreatecourse.pm	2006/05/31 12:57:26	1.14
+++ loncom/automation/batchcreatecourse.pm	2006/06/27 21:28:21	1.15
@@ -1,5 +1,5 @@
 #
-# $Id: batchcreatecourse.pm,v 1.14 2006/05/31 12:57:26 raeburn Exp $
+# $Id: batchcreatecourse.pm,v 1.15 2006/06/27 21:28:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -56,6 +56,7 @@ use strict;
 #<!DOCTYPE text>
 #<class id="ss05ubw101">
 # <title>Underwater Basket Weaving</title>
+# <crstype>Course</coursetype>
 # <coursecode>ss05ubw101</coursecode>
 # <coursehome>msul1</coursehome>
 # <coursedomain>msu</coursedomain>
@@ -74,6 +75,7 @@ use strict;
 # <nonstandard></nonstandard>
 # <topmap></topmap>
 # <firstres>nav</firstres>
+# <crsquota>20</crsquota>
 # <clonecrs>466011437c34194msul1</clonecrs>
 # <clonedom>msu</clonedom>
 # <showphotos></showphotos>
@@ -154,8 +156,14 @@ use strict;
 # A value of 0 or blank is equivalent to an unchecked box or 'No'
 # response. Dates are in format YYYY:MM:DD:HH:MM:SS (:separators required)
 #
-# firstres can be nav, syl , or blank for "Navigate Contents", Syllabus, or
+# firstres can be nav, syl, or blank for "Navigate Contents", Syllabus, or
 # no entry respectively.
+# 
+# crstype can be Course or Group
+#
+# crsquota is the total disk space permitted for course group portfolio files
+# in all course groups.
+# 
 # For format of other parameters, refer to the interactive CCRS page
 # and view how the equivalent parameter is displayed in the web form.  
 #  
@@ -241,7 +249,7 @@ sub parse_coursereqs {
     my $xlist = 0;
     my $userkey = '';
     my $role = '';
-    my @items = ('title','optional_id','coursecode','coursehome','reshome','nonstandard','adds','drops','topmap','firstres','clonecrs','clonedom','showphotos','setpolicy','setcontent','setkeys','keyauth','disresdis','disablechat','openall','notify_owner','notify_dc');
+    my @items = ('title','optional_id','coursecode','coursehome','reshome','nonstandard','adds','drops','topmap','firstres','clonecrs','clonedom','showphotos','setpolicy','setcontent','setkeys','keyauth','disresdis','disablechat','openall','notify_owner','notify_dc','crstype','crsquota');
     my @dateitems = ('enrollstart','enrollend','accessstart','accessend');
     my @useritems = ('autharg','authtype','firstname','generation','lastname','middlename','studentID');
     my $p = HTML::Parser->new
@@ -448,11 +456,13 @@ sub build_course {
                ccuname => $$details{$num}{'owner'},
                ccdomain => $$details{$num}{'domain'},
                cdescr => $$details{$num}{'title'},
+               crstype => $$details{$num}{'crstype'},
                curl => $$details{$num}{'topmap'},
                course_domain => $cdom,
                course_home =>  $$details{$num}{'coursehome'},
                nonstandard => $$details{$num}{'nonstandard'},
                crscode => $$details{$num}{'coursecode'},
+               crsquota => $$details{$num}{'crsquota'},
                clonecourse => $$details{$num}{'clonecrs'},
                clonedomain => $$details{$num}{'clonedom'},
                crsid => $$details{$num}{'optional_id'},