loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.89, 2002/08/09 18:18:36	version 1.90, 2002/08/13 00:37:18
Line 1214 sub make_new_child {	Line 1214 sub make_new_child {
my $proname=propath($udom,$uname);	my $proname=propath($udom,$uname);
my $qresult='';	my $qresult='';
if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_READER,0640)) {	if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_READER,0640)) {
	study($regexp);
foreach $key (keys %hash) {	foreach $key (keys %hash) {
if (eval('$key=~/$regexp/')) {	my $unescapeKey = &unescape($key);
	if (eval('$unescapeKey=~/$regexp/')) {
$qresult.="$key=$hash{$key}&";	$qresult.="$key=$hash{$key}&";
}	}
}	}
if (untie(%hash)) {	if (untie(%hash)) {
$qresult=~s/\&$//;	$qresult=~s/\&$//;