--- db/prgsrc/db.cgi	2001/12/25 04:05:46	1.54
+++ db/prgsrc/db.cgi	2001/12/31 18:05:16	1.56
@@ -585,7 +585,7 @@ sub PrintList {
             (" "x4).
             a({href=>url."?".$qs."\&first=1"},"<<").("&nbsp;"x4).
             a({href=>(url."?".$qs."\&first=".($first-$kvo))},"<").("&nbsp;"x4)
-        }
+	        }
 
         else {$nav.='&nbsp;'x15;}
 
@@ -668,7 +668,7 @@ sub PrintSearch {
           $sth->execute;
           my ($q,$nf);
 	  ($sstr, $q,$nf)=($sth->fetchrow);
-          @Questions=unpack 'S*',$q;        
+          @Questions=unpack 'S*',$q; 
           @allnf=unpack 'S*',$nf;        
           $sth->finish;
         } else 
@@ -677,15 +677,18 @@ sub PrintSearch {
              my $tmp=$dbh->quote(pack("S*",@Questions));
              my $qsstr=$dbh->quote($sstr);
              my $nf=$dbh->quote(pack("S*", @allnf));
+             my $ss=200;
              do 
              {
                $was=int rand(32000);
              }
-             while (!$dbh->do ("insert into lastqueries (id,sstr,questions,allnf) 
-                         values ($was, $qsstr,$tmp,$nf)"));
+             while (--$ss && (!$dbh->do ("insert into lastqueries (id,sstr,questions,allnf) 
+                         values ($was, $qsstr,$tmp,$nf)")));
+             print "Something is wrong...".br unless $ss;
         }
 
 
+
 	print p. "Время поиска: " . (time-$t) ." сек.".p;
 	my ($output, $i, $suffix, $hits) = ('', 0, '', $#Questions + 1);