version 1.10, 2014/12/11 01:14:40
|
version 1.11, 2015/06/23 17:49:06
|
Line 227 sub copydbfiles {
|
Line 227 sub copydbfiles {
|
$origcrs_discussion=~s|/|_|g; |
$origcrs_discussion=~s|/|_|g; |
foreach (&crsdirlist($origcrsid)) { |
foreach (&crsdirlist($origcrsid)) { |
if ($_=~/\.db$/) { |
if ($_=~/\.db$/) { |
unless |
unless ($_=~/^(nohist\_|disclikes|discussiontimes|classlist|versionupdate |
($_=~/^(nohist\_|disclikes|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|gradingqueue|reviewqueue|CODEs|groupmembership)/) { |
|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations |
©db($origcrsid,$newcrsid,$_); |
|gradingqueue|reviewqueue|CODEs|groupmembership|comm_block)/) { |
} |
©db($origcrsid,$newcrsid,$_); |
|
} |
} |
} |
} |
} |
} |
} |