loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.88, 2002/08/09 17:43:30	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/\&$//;
Line 1604 sub chatadd {	Line 1606 sub chatadd {
foreach (keys %hash) {	foreach (keys %hash) {
my ($thistime)=($_=~/(\d+)\_/);	my ($thistime)=($_=~/(\d+)\_/);
if ($thistime<$expired) {	if ($thistime<$expired) {
undef $hash{$_};	delete $hash{$_};
}	}
}	}
untie %hash;	untie %hash;