loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.165.2.1, 2004/01/14 01:20:40	version 1.165.2.2, 2004/01/15 18:56:11
Line 1959 sub make_new_child {	Line 1959 sub make_new_child {
my %hash;	my %hash;
if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_WRCREAT(),0640)) {	if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_WRCREAT(),0640)) {
foreach my $key (@keys) {	foreach my $key (@keys) {
delete($hash{&unescape($key)});	delete($hash{$key});
}	}
if (untie(%hash)) {	if (untie(%hash)) {
print $client "ok\n";	print $client "ok\n";