version 1.16, 2020/07/23 18:03:10
|
version 1.18, 2022/03/25 06:42:17
|
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'}); |