loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.82, 2005/11/04 21:17:18	version 1.83, 2005/11/04 21:48:30
Line 220 sub copydbfiles {	Line 220 sub copydbfiles {
foreach (&crsdirlist($origcrsid)) {	foreach (&crsdirlist($origcrsid)) {
if ($_=~/\.db$/) {	if ($_=~/\.db$/) {
unless	unless
($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata\|\Q$origcrs_discussion\E)/) {	($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata\|\Q$origcrs_discussion\E\|slots\|slot_reservations\|(grading\|review)queue)/) {
&copydb($origcrsid,$newcrsid,$_);	&copydb($origcrsid,$newcrsid,$_);
my $histfile=$_;	my $histfile=$_;
$histfile=~s/\.db$/\.hist/;	$histfile=~s/\.db$/\.hist/;