loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/lonsql between versions 1.20 and 1.25

version 1.20, 2001/03/27 12:49:18	version 1.25, 2001/03/27 19:11:12
Line 212 sub make_new_child {	Line 212 sub make_new_child {
my $userinput = <$client>;	my $userinput = <$client>;
chomp($userinput);	chomp($userinput);

my ($conserver,$querytmp,$customtmp)=split(/&/,$userinput);	my ($conserver,$querytmp,
	$customtmp,$customshowtmp)=split(/&/,$userinput);
my $query=unescape($querytmp);	my $query=unescape($querytmp);
my $custom=unescape($customtmp);	my $custom=unescape($customtmp);
	my $customshow=unescape($customshowtmp);

#send query id which is pid_unixdatetime_runningcounter	#send query id which is pid_unixdatetime_runningcounter
$queryid = $thisserver;	$queryid = $thisserver;
Line 223 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");
	&logthis("QUERY: $query");
	sleep 1;
#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 247 sub make_new_child {	Line 253 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;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.20
changed lines
	Added in v.1.25