--- db/prgsrc/db.cgi	2001/05/17 03:57:32	1.19
+++ db/prgsrc/db.cgi	2001/05/17 23:31:08	1.20
@@ -110,6 +110,7 @@ sub Search {
 	my ($dbh, $sstr, $metod) = @_;
 	my (@arr, @Questions, @fields);
 	my (@sar, $i, $sth,$where);
+        my $btime=time;	
 
 #	push @fields, 'Question';
 
@@ -169,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;
 }