loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.68, 2004/09/25 17:52:03	version 1.69, 2004/10/15 22:48:48
Line 204 sub copyresourcedb {	Line 204 sub copyresourcedb {
sub copyuserfiles {	sub copyuserfiles {
my ($origcrsid,$newcrsid)=@_;	my ($origcrsid,$newcrsid)=@_;
foreach (&crsdirlist($origcrsid,'userfiles')) {	foreach (&crsdirlist($origcrsid,'userfiles')) {
&copyfile($origcrsid,$newcrsid,$_);	if ($_ !~m\|^scantron_\|) {
	&copyfile($origcrsid,$newcrsid,$_);
	}
}	}
}	}
# ========================================================== Copy all userfiles	# ========================================================== Copy all userfiles