loncom/interface/lonclonecourse.pm - diff

Return to lonclonecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.17, 2022/03/15 18:18:31	version 1.19, 2024/12/12 17:48:15
Line 231 sub copydb {	Line 231 sub copydb {
}	}
}	}
} elsif ($which eq 'lti') {	} elsif ($which eq 'lti') {
foreach my $key (keys($data)) {	foreach my $key (keys(%data)) {
if (ref($data{$key}) eq 'HASH') {	if (ref($data{$key}) eq 'HASH') {
if (exists($data{$key}{'usable'})) {	if (exists($data{$key}{'usable'})) {
delete($data{$key}{'usable'});	delete($data{$key}{'usable'});
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 = &copydb($origcrsid,$newcrsid,$_,$newinstcode,$newowner,	my @info = &copydb($origcrsid,$newcrsid,$_,$newinstcode,$newowner,
$tinyurls);	$tinyurls);
if (@info) {	if (@info) {