version 1.16, 2020/07/23 18:03:10
|
version 1.17, 2022/03/15 18:18:31
|
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'}); |