loncom/interface/lonclonecourse.pm - diff

Return to lonclonecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.16, 2020/07/23 18:03:10	version 1.19, 2024/12/12 17:48:15
Line 230 sub copydb {	Line 230 sub copydb {
return @info;	return @info;
}	}
}	}
	} elsif ($which eq 'lti') {
	foreach my $key (keys(%data)) {
	if (ref($data{$key}) eq 'HASH') {
	if (exists($data{$key}{'usable'})) {
	delete($data{$key}{'usable'});
	}
	}
	}
}	}
my $putres = &Apache::lonnet::put	my $putres = &Apache::lonnet::put
($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'});	($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'});
Line 358 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) {