loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.170, 2004/01/07 21:13:52	version 1.171, 2004/01/14 01:08:31
Line 1693 sub make_new_child {	Line 1693 sub make_new_child {
unless (mkdir($fpnow,0777)) {	unless (mkdir($fpnow,0777)) {
$fperror="error: ".($!+0)	$fperror="error: ".($!+0)
." mkdir failed while attempting "	." mkdir failed while attempting "
."makeuser\n";	."makeuser";
}	}
}	}
}	}
Line 2213 sub make_new_child {	Line 2213 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{$key});	delete($hash{&unescape($key)});
}	}
if (untie(%hash)) {	if (untie(%hash)) {
print $client "ok\n";	print $client "ok\n";