version 1.71, 2004/11/27 17:23:09
|
version 1.72, 2004/12/03 22:29:17
|
Line 138 sub copydb {
|
Line 138 sub copydb {
|
my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid); |
my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid); |
my %data=&Apache::lonnet::dump |
my %data=&Apache::lonnet::dump |
($which,$origcrsdata{'domain'},$origcrsdata{'num'}); |
($which,$origcrsdata{'domain'},$origcrsdata{'num'}); |
|
foreach my $key (keys(%data)) { |
|
if ($key=~/^internal./) { delete($data{$key}); } |
|
} |
return &Apache::lonnet::put |
return &Apache::lonnet::put |
($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'}); |
($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'}); |
} |
} |