loncom/interface/lonclonecourse.pm - diff

Return to lonclonecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.8, 2011/10/17 12:41:30	version 1.9, 2012/03/10 02:45:35
Line 228 sub copydbfiles {	Line 228 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\|gradingqueue\|reviewqueue\|CODEs\|groupmembership)/) {	($_=~/^(nohist\_\|disclikes\|discussiontimes\|classlist\|versionupdate\|resourcedata\|\Q$origcrs_discussion\E\|slots\|slot_reservations\|gradingqueue\|reviewqueue\|CODEs\|groupmembership)/) {
&copydb($origcrsid,$newcrsid,$_);	&copydb($origcrsid,$newcrsid,$_);
}	}
}	}