db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.57, 2002/01/08 23:15:31	version 1.58, 2002/01/13 00:32:12
Line 354 print "$query\n",br if $printqueries;	Line 354 print "$query\n",br if $printqueries;
{	{
($field,$lo,$hi,$wordnumber)=@blob[$ii..($ii+3)];	($field,$lo,$hi,$wordnumber)=@blob[$ii..($ii+3)];
$ii+=4;	$ii+=4;
$number=$lo+$hi*256;	my $addnumber=($field >> 4) << 16;
$field=$fieldname{$field};	$number=(($field >> 4) << 16)+($hi << 8) + $lo;
	$field=$fieldname{$field & 0xF};
if ($searchin{$field})	if ($searchin{$field})
{	{
push @{$tasksof{$i}{$number}}, $wordnumber;	push @{$tasksof{$i}{$number}}, $wordnumber;
Line 668 sub PrintSearch {	Line 669 sub PrintSearch {
$sth->execute;	$sth->execute;
my ($q,$nf);	my ($q,$nf);
($sstr, $q,$nf)=($sth->fetchrow);	($sstr, $q,$nf)=($sth->fetchrow);
@Questions=unpack 'S*',$q;	@Questions=unpack 'L*',$q;
@allnf=unpack 'S*',$nf;	@allnf=unpack 'L*',$nf;
$sth->finish;	$sth->finish;
} else	} else
{	{
@Questions=&Search($dbh, \$sstr,$metod,$all,\@allnf);	@Questions=&Search($dbh, \$sstr,$metod,$all,\@allnf);
my $tmp=$dbh->quote(pack("S*",@Questions));	my $tmp=$dbh->quote(pack("L*",@Questions));
my $qsstr=$dbh->quote($sstr);	my $qsstr=$dbh->quote($sstr);
my $nf=$dbh->quote(pack("S*", @allnf));	my $nf=$dbh->quote(pack("L*", @allnf));
my $ss=200;	my $ss=200;
do	do
{	{