loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.11, 2001/03/26 19:46:47	version 1.13, 2001/03/26 20:17:20
Line 248 sub make_new_child {	Line 248 sub make_new_child {
# if file is not in sql database, output error.	# if file is not in sql database, output error.
# if file is indicated in sql database and is	# if file is indicated in sql database and is
# part of query result list, then do the pattern match.	# part of query result list, then do the pattern match.
	my $customresult='';
foreach my $m (@metalist) {	foreach my $m (@metalist) {
my $fh=IO::File->new($m);	my $fh=IO::File->new($m);
my @lines=<$fh>;	my @lines=<$fh>;
Line 255 sub make_new_child {	Line 256 sub make_new_child {
if ($stuff=~/$custom/s) {	if ($stuff=~/$custom/s) {
&logthis("found: $stuff");	&logthis("found: $stuff");
}	}
	$customresult.='&custom='.escape($stuff);
}	}
	$result.=$customresult;
}	}
# reply with result	# reply with result
	$result.="ABCABC";
&reply("queryreply:$queryid:$result",$conserver);	&reply("queryreply:$queryid:$result",$conserver);

}	}