--- loncom/interface/loncreatecourse.pm	2006/05/30 20:05:05	1.90
+++ 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.90 2006/05/30 20:05:05 raeburn Exp $
+# $Id: loncreatecourse.pm,v 1.93 2006/06/27 21:28:13 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -238,9 +238,6 @@ sub copydbfiles {
 	    unless 
              ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|gradingqueue|reviewqueue|CODEs)/) {
 		 &copydb($origcrsid,$newcrsid,$_);
-		 my $histfile=$_;
-		 $histfile=~s/\.db$/\.hist/;
-		 &copyfile($origcrsid,$newcrsid,$histfile);
 	     }
 	}
     }
@@ -372,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",
@@ -392,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 = <<END;
 <script type="text/javascript">
 var editbrowser = null;
@@ -426,10 +427,10 @@ END
         &Apache::loncommon::start_page($titles{$env{'form.phase'}},$js);
     my $end_page = 
         &Apache::loncommon::end_page();
-    my $type = $crstype;
-    my $crumbs = &Apache::lonhtmlcommon::breadcrumbs(&mt('[_1] Information',
-                                                         $type),'Create_Course',
-                                                     undef,'Create_Courses');
+    my $crumbs = 
+	&Apache::lonhtmlcommon::breadcrumbs($crstype.' Information',
+					    'Create_Course',undef,
+					    'Create_Courses');
     $r->print($start_page.$crumbs);
     if ($crstype eq 'Course') {
         $r->print(<<ENDDOCUMENT);
@@ -619,6 +620,11 @@ $lt{'ndcl'}<br/>
     <input type="radio" name="showphotos" value="0" checked="true" />$lt{'no'}
 </label>
 </p>
+<p>
+<h2>$lt{'cgrs'}</h2>
+$lt{'cgrq'}
+<input type="text" name="crsquota" value="20" size="6" />Mb 
+</p>
 <hr />
 <h2>$lt{'cc'}</h2>
 <p>
@@ -741,6 +747,11 @@ $lt{'asov'}.
     <input type="text" name="reshome" size="30" value="/res/$defdom/" />
 </label>
 </p>
+<p>
+<h2>$lt{'grts'}</h2>
+$lt{'grtq'}
+<input type="text" name="crsquota" value="20" />Mb
+</p>
 <hr />
 <h2>$lt{'gc'}</h2>
 <p>
@@ -802,7 +813,7 @@ sub create_course {
         }
     }
     my $logmsg;
-    my $start_page=&Apache::loncommon::start_page(&mt('Create a New [_1]',$crstype));
+    my $start_page=&Apache::loncommon::start_page('Create a New '.$crstype);
     my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Creation Outcome','Create_Course',undef,'Create_Courses');
 
     $r->print($start_page.$crumbs);
@@ -817,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'},
@@ -969,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 {