11 |
use vars qw($Count); |
use vars qw($Count); |
12 |
use HTML::Entities; |
use HTML::Entities; |
13 |
use URI::Escape; |
use URI::Escape; |
14 |
|
use locale; |
15 |
|
|
16 |
use DBI; |
use DBI; |
17 |
|
|
161 |
} else { |
} else { |
162 |
# if no match is found when searching from beginning |
# if no match is found when searching from beginning |
163 |
# of word in index, try substring match anywhere |
# of word in index, try substring match anywhere |
164 |
$sql2 = "select ord from $field where upper(item) like '%'||upper(?)||'%'"; |
$sql2 = "select ord from $field where upper(item) like '% '||upper(?)||'%'"; |
165 |
$sth = $self->{dbh}->prepare($sql2) || die "sql2: $sql2; ".$self->{dbh}->errstr(); |
$sth = $self->{dbh}->prepare($sql2) || die "sql2: $sql2; ".$self->{dbh}->errstr(); |
166 |
$sth->execute($where) || die "sql2: $sql2; ".$self->{dbh}->errstr(); |
$sth->execute($where) || die "sql2: $sql2; ".$self->{dbh}->errstr(); |
167 |
if (my $row = $sth->fetchrow_hashref) { |
if (my $row = $sth->fetchrow_hashref) { |