--- loncom/interface/loncreatecourse.pm 2003/09/02 19:47:47 1.32 +++ loncom/interface/loncreatecourse.pm 2003/09/03 21:31:59 1.34 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.32 2003/09/02 19:47:47 www Exp $ +# $Id: loncreatecourse.pm,v 1.34 2003/09/03 21:31:59 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -133,7 +133,7 @@ sub copydbfiles { foreach (&crsdirlist($origcrsid)) { if ($_=~/\.db$/) { unless - ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate)/) { + ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata)/) { ©db($origcrsid,$newcrsid,$_); } } @@ -398,8 +398,8 @@ ENDENHEAD # if ($ENV{'form.openall'}) { my $storeunder=$crsudom.'_'.$crsunum.'.0.opendate'; - my %storecontent = ($storeunder => time, - $storeunder.'type' => 'date_start'); + my %storecontent = ($storeunder => time, + $storeunder.'.type' => 'date_start'); $r->print('Opening all assignments: '.&Apache::lonnet::cput ('resourcedata',\%storecontent,$crsudom,$crsunum).'
');