loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.87, 2006/05/11 01:16:44	version 1.88, 2006/05/15 19:11:40
Line 234 sub copydbfiles {	Line 234 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\|CODEs)/) {	($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata\|\Q$origcrs_discussion\E\|slots\|slot_reservations\|gradingqueue\|reviewqueue\|CODEs)/) {
&copydb($origcrsid,$newcrsid,$_);	&copydb($origcrsid,$newcrsid,$_);
my $histfile=$_;	my $histfile=$_;
$histfile=~s/\.db$/\.hist/;	$histfile=~s/\.db$/\.hist/;