loncom/interface/lonclonecourse.pm - diff

Return to lonclonecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.15, 2020/07/01 20:08:54	version 1.17, 2022/03/15 18:18:31
Line 108 sub rewritefile {	Line 108 sub rewritefile {

sub copyfile {	sub copyfile {
my ($origcrsid,$newcrsid,$which)=@_;	my ($origcrsid,$newcrsid,$which)=@_;
unless ($which=~/\.sequence$/) {	unless ($which=~/\.(page\|sequence)$/) {
return &writefile($newcrsid,$which,	return &writefile($newcrsid,$which,
&readfile($origcrsid,$which));	&readfile($origcrsid,$which));
} else {	} else {
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'});