loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.43, 2002/05/17 14:03:04	version 1.44, 2002/06/17 14:00:09
Line 290 sub make_new_child {	Line 290 sub make_new_child {
print $client "$queryid\n";	print $client "$queryid\n";

&logthis("QUERY: $query");	&logthis("QUERY: $query");
&logthis("QUERY: $query");
sleep 1;	sleep 1;

	# ---------- At this point, query is received, query-ID assigned and sent back
	# $query eq 'logquery' will mean that this is a query against log-files

	unless ($query eq 'logquery') {
	# -------------------------------------------------------- This is an sql query
#prepare and execute the query	#prepare and execute the query
my $sth = $dbh->prepare($query);	my $sth = $dbh->prepare($query);
my $result;	my $result;
Line 371 sub make_new_child {	Line 376 sub make_new_child {
$result=join("&",@r2) unless $query;	$result=join("&",@r2) unless $query;
$result.=$customresult;	$result.=$customresult;
}	}
# reply with result	# ------------------------------------------------------------ end of sql query
$result.="\n" if $result;	} else {
	# ------------------------------------------------------ beginning of log query
	#
	# do log queries here
	#
	$result='not_yet_implemented';
	# ------------------------------------------------------------ end of log query
	}
	# reply with result, append \n unless already there
	$result.="\n" unless ($result=~/\n$/);
&reply("queryreply:$queryid:$result",$conserver);	&reply("queryreply:$queryid:$result",$conserver);

}	}