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; |
} |
} |
|
|