version 1.18, 2022/03/25 06:42:17
|
version 1.19, 2024/12/12 17:48:15
|
Line 366 sub copydbfiles {
|
Line 366 sub copydbfiles {
|
if ($_=~/\.db$/) { |
if ($_=~/\.db$/) { |
unless ($_=~/^(nohist\_|disclikes|discussiontimes|classlist|versionupdate |
unless ($_=~/^(nohist\_|disclikes|discussiontimes|classlist|versionupdate |
|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations |
|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations |
|gradingqueue|reviewqueue|CODEs|groupmembership|comm_block)/) { |
|gradingqueue|reviewqueue|CODEs|groupmembership|comm_block |
|
|linkprot_passback_pending)/) { |
my @info = ©db($origcrsid,$newcrsid,$_,$newinstcode,$newowner, |
my @info = ©db($origcrsid,$newcrsid,$_,$newinstcode,$newowner, |
$tinyurls); |
$tinyurls); |
if (@info) { |
if (@info) { |