loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.21, 2001/03/27 13:35:35	version 1.24, 2001/03/27 19:01:05
Line 225 sub make_new_child {	Line 225 sub make_new_child {
$queryid .= $run;	$queryid .= $run;
print $client "$queryid\n";	print $client "$queryid\n";

	&logthis("QUERY: $query\n");
#prepare and execute the query	#prepare and execute the query
my $sth = $dbh->prepare($query);	my $sth = $dbh->prepare($query);
my $result;	my $result;
my @files;	my @files;
	my $subsetflag=0;
unless ($sth->execute())	unless ($sth->execute())
{	{
&logthis("<font color=blue>WARNING: Could not retrieve from database: $@</font>");	&logthis("<font color=blue>WARNING: Could not retrieve from database: $@</font>");
Line 249 sub make_new_child {	Line 251 sub make_new_child {
if ($custom) {	if ($custom) {
&logthis("am going to do custom query for $custom");	&logthis("am going to do custom query for $custom");
if (@files) {	if (@files) {
@metalist=map {$perlvar{'lonDocRoot'}.$_.'meta'} @files;	@metalist=map {$perlvar{'lonDocRoot'}.$_.'.meta'} @files;
}	}
else {	else {
@metalist=(); pop @metalist;	@metalist=(); pop @metalist;