loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.78, 2005/04/07 06:56:23	version 1.80, 2005/07/08 14:27:14
Line 90 sub writefile {	Line 90 sub writefile {
my %crsdata=&Apache::lonnet::coursedescription($courseid);	my %crsdata=&Apache::lonnet::coursedescription($courseid);
return &Apache::lonnet::finishuserfileupload(	return &Apache::lonnet::finishuserfileupload(
$crsdata{'num'},$crsdata{'domain'},	$crsdata{'num'},$crsdata{'domain'},
$crsdata{'home'},
'output',$which);	'output',$which);
}	}

Line 220 sub copydbfiles {	Line 219 sub copydbfiles {
unless	unless
($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata)/) {	($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata)/) {
&copydb($origcrsid,$newcrsid,$_);	&copydb($origcrsid,$newcrsid,$_);
	my $histfile=$_;
	$histfile=~s/\.db$/\.hist/;
	&copyfile($origcrsid,$newcrsid,$histfile);
}	}
}	}
}	}