loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.81, 2005/07/11 17:52:19	version 1.82, 2005/11/04 21:17:18
Line 214 sub copyuserfiles {	Line 214 sub copyuserfiles {

sub copydbfiles {	sub copydbfiles {
my ($origcrsid,$newcrsid)=@_;	my ($origcrsid,$newcrsid)=@_;

	my ($origcrs_discussion) = ($origcrsid=~m\|^/(.*)\|);
	$origcrs_discussion=~s\|/\|_\|g;
foreach (&crsdirlist($origcrsid)) {	foreach (&crsdirlist($origcrsid)) {
if ($_=~/\.db$/) {	if ($_=~/\.db$/) {
unless	unless
($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata)/) {	($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata\|\Q$origcrs_discussion\E)/) {
&copydb($origcrsid,$newcrsid,$_);	&copydb($origcrsid,$newcrsid,$_);
my $histfile=$_;	my $histfile=$_;
$histfile=~s/\.db$/\.hist/;	$histfile=~s/\.db$/\.hist/;