--- loncom/interface/loncreatecourse.pm 2006/06/22 11:25:56 1.92
+++ loncom/interface/loncreatecourse.pm 2006/06/27 21:28:13 1.93
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.92 2006/06/22 11:25:56 www Exp $
+# $Id: loncreatecourse.pm,v 1.93 2006/06/27 21:28:13 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -369,6 +369,8 @@ function validate(formname) {
'ndcl' => "Notification to domain coordinator via LON-CAPA message when enrollment changes occur during the automated update?",
'irsp' => "Include retrieval of student photographs?",
'rshm' => 'Resource Space Home',
+ 'cgrs' => "Course Group Settings",
+ 'cgrq' => "Set a quota for the total disk space available for storage of course group portfolio files.",
'opco' => "Open Course",
'ginf' => "Group Information",
'gtit' => "Group Title",
@@ -389,8 +391,10 @@ function validate(formname) {
'gc' => "Group Coordinator",
'gid' => "Group ID",
'crgr' => "Create Group",
- );
+ 'grts' => "Group Teams Settings",
+ 'grtq' => "Set a quota for the total disk space available for storage of group team portfolio files.",
+ );
my $js = <
$lt{'no'}
+
@@ -738,6 +747,11 @@ $lt{'asov'}.
++
@@ -814,6 +828,7 @@ sub create_course { course_home => $env{'form.course_home'}, nonstandard => $env{'form.nonstandard'}, crscode => $env{'form.crscode'}, + crsquota => $env{'form.crsquota'}, clonecourse => $env{'form.clonecourse'}, clonedomain => $env{'form.clonedomain'}, crsid => $env{'form.crsid'}, @@ -966,6 +981,11 @@ sub construct_course { if ($args->{'crscode'}) { $cenv{'internal.coursecode'}=$args->{'crscode'}; } + if ($args->{'crsquota'} ne '') { + $cenv{'internal.coursequota'}=$args->{'crsquota'}; + } else { + $cenv{'internal.coursequota'}=$args->{'crsquota'} = 20; + } if ($args->{'ccuname'}) { $cenv{'internal.courseowner'} = $args->{'ccuname'}; } else {