--- db/prgsrc/db.cgi	2001/05/17 01:33:59	1.15
+++ db/prgsrc/db.cgi	2001/05/17 23:31:08	1.20
@@ -7,6 +7,7 @@ use strict;
 use Time::Local;
 use POSIX qw(locale_h);
 my $debug=1; #added by R7
+open STDERR, ">/tmp/errors" if $debug;
 my ($PWD) = `pwd`;
 chomp $PWD;
 my ($SRCPATH) = "$PWD/../dimrub/src";
@@ -109,6 +110,7 @@ sub Search {
 	my ($dbh, $sstr, $metod) = @_;
 	my (@arr, @Questions, @fields);
 	my (@sar, $i, $sth,$where);
+        my $btime=time;	
 
 #	push @fields, 'Question';
 
@@ -168,7 +170,7 @@ sub Search {
 	while (@arr = $sth->fetchrow) {
 		push @Questions, $arr[0];
 	}
-	
+	print br, "Search time: ",time-$btime," sec",br if $debug;
 	return @Questions;
 }