db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.19, 2001/05/17 03:57:32	version 1.20, 2001/05/17 23:31:08
Line 110 sub Search {	Line 110 sub Search {
my ($dbh, $sstr, $metod) = @_;	my ($dbh, $sstr, $metod) = @_;
my (@arr, @Questions, @fields);	my (@arr, @Questions, @fields);
my (@sar, $i, $sth,$where);	my (@sar, $i, $sth,$where);
	my $btime=time;

# push @fields, 'Question';	# push @fields, 'Question';

Line 169 sub Search {	Line 170 sub Search {
while (@arr = $sth->fetchrow) {	while (@arr = $sth->fetchrow) {
push @Questions, $arr[0];	push @Questions, $arr[0];
}	}
	print br, "Search time: ",time-$btime," sec",br if $debug;
return @Questions;	return @Questions;
}	}