loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.165, 2003/12/12 21:37:42	version 1.165.2.1, 2004/01/14 01:20:40
Line 1439 sub make_new_child {	Line 1439 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 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{$key});	delete($hash{&unescape($key)});
}	}
if (untie(%hash)) {	if (untie(%hash)) {
print $client "ok\n";	print $client "ok\n";