loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.83, 2005/11/04 21:48:30	version 1.84, 2005/11/15 20:17:00
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\|slots\|slot_reservations\|(grading\|review)queue)/) {	($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata\|\Q$origcrs_discussion\E\|slots\|slot_reservations\|(grading\|review)queue\|CODEs)/) {
&copydb($origcrsid,$newcrsid,$_);	&copydb($origcrsid,$newcrsid,$_);
my $histfile=$_;	my $histfile=$_;
$histfile=~s/\.db$/\.hist/;	$histfile=~s/\.db$/\.hist/;