loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.32, 2003/09/02 19:47:47	version 1.34, 2003/09/03 21:31:59
Line 133 sub copydbfiles {	Line 133 sub copydbfiles {
foreach (&crsdirlist($origcrsid)) {	foreach (&crsdirlist($origcrsid)) {
if ($_=~/\.db$/) {	if ($_=~/\.db$/) {
unless	unless
($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate)/) {	($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata)/) {
&copydb($origcrsid,$newcrsid,$_);	&copydb($origcrsid,$newcrsid,$_);
}	}
}	}
Line 398 ENDENHEAD	Line 398 ENDENHEAD
#	#
if ($ENV{'form.openall'}) {	if ($ENV{'form.openall'}) {
my $storeunder=$crsudom.'_'.$crsunum.'.0.opendate';	my $storeunder=$crsudom.'_'.$crsunum.'.0.opendate';
my %storecontent = ($storeunder => time,	my %storecontent = ($storeunder => time,
$storeunder.'type' => 'date_start');	$storeunder.'.type' => 'date_start');

$r->print('Opening all assignments: '.&Apache::lonnet::cput	$r->print('Opening all assignments: '.&Apache::lonnet::cput
('resourcedata',\%storecontent,$crsudom,$crsunum).'<br>');	('resourcedata',\%storecontent,$crsudom,$crsunum).'<br>');