--- db/prgsrc/db.cgi	2001/12/31 00:57:07	1.55
+++ db/prgsrc/db.cgi	2002/01/08 23:15:31	1.57
@@ -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 
@@ -1428,7 +1428,8 @@ EOT
           elsif (param('sstr')||param('was')) {
 		&PrintSearch($dbh, param('sstr'), param('metod'),param('was'));
 		$dbh->do("delete from lastqueries where
-		           time_to_sec(now())-time_to_sec(t) >3600")
+                      (TO_DAYS(NOW()) - TO_DAYS(t) >= 2) OR
+		           (time_to_sec(now())-time_to_sec(t) >3600)")
 	} 
 	  elsif (param('qid')) {
 	      my $qid=param('qid');