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