--- db/prgsrc/db.cgi	2001/12/06 23:39:11	1.45
+++ db/prgsrc/db.cgi	2001/12/08 23:00:44	1.46
@@ -2,7 +2,7 @@
 
 use DBI;
 use CGI ':all';
-use Text::Query;
+#use Text::Query;
 use strict;
 use Time::Local;
 use POSIX qw(locale_h);
@@ -441,17 +441,17 @@ sub Search {
 	my $sstr=$$s;
 	my (@arr, @Questions, @fields);
 	my (@sar, $i, $sth,$where,$query);
-	my $ip=$ENV{'REMOTE_ADDR'};
+#	my $ip=$ENV{'REMOTE_ADDR'};
 
-        $ip=$dbh->quote($ip);
-	$query=
-          "INSERT into queries (query,metod,searchin,ip)
-                    values (". $dbh->quote($sstr).', '.
-                    $dbh->quote($metod) . ', ' .
-                    $dbh->quote(join ' ', grep $searchin{$_}, keys %searchin)  . 
-              ", $ip)";
-print $query if $printqueries;
-        $dbh -> do ($query);
+#        $ip=$dbh->quote($ip);
+#	$query=
+#          "INSERT into queries (query,metod,searchin,ip)
+#                    values (". $dbh->quote($sstr).', '.
+#                    $dbh->quote($metod) . ', ' .
+#                    $dbh->quote(join ' ', grep $searchin{$_}, keys %searchin)  . 
+#              ", $ip)";
+#print $query if $printqueries;
+#        $dbh -> do ($query);
 	if ($metod eq 'rus')
 	{
 	     my @tasks=russearch($dbh,$sstr,$all,$allnf);