Lines 208-229
sub SearchMember {
Link Here
|
208 |
$query.=" borrowers.branchcode =".$dbh->quote(C4::Context->userenv->{'branch'})." AND " unless (C4::Context->userenv->{'branch'} eq "insecure"); |
208 |
$query.=" borrowers.branchcode =".$dbh->quote(C4::Context->userenv->{'branch'})." AND " unless (C4::Context->userenv->{'branch'} eq "insecure"); |
209 |
} |
209 |
} |
210 |
} |
210 |
} |
211 |
$query.="((surname LIKE ? OR surname LIKE ? |
211 |
$query.="((surname LIKE ? OR (surname LIKE ? AND surname REGEXP ?) |
212 |
OR firstname LIKE ? OR firstname LIKE ? |
212 |
OR firstname LIKE ? OR (firstname LIKE ? AND firstname REGEXP ?) |
213 |
OR othernames LIKE ? OR othernames LIKE ?) |
213 |
OR othernames LIKE ? OR (othernames LIKE ? AND othernames REGEXP ?)) |
214 |
" . |
214 |
" . |
215 |
($category_type?" AND category_type = ".$dbh->quote($category_type):""); |
215 |
($category_type?" AND category_type = ".$dbh->quote($category_type):""); |
|
|
216 |
my $regex = '[[:punct:][:space:]]'.$data[0]; |
216 |
@bind = ( |
217 |
@bind = ( |
217 |
"$data[0]%", "% $data[0]%", "$data[0]%", "% $data[0]%", |
218 |
"$data[0]%", "%$data[0]%", $regex, |
218 |
"$data[0]%", "% $data[0]%" |
219 |
"$data[0]%", "%$data[0]%", $regex, |
|
|
220 |
"$data[0]%", "%$data[0]%", $regex |
219 |
); |
221 |
); |
220 |
for ( my $i = 1 ; $i < $count ; $i++ ) { |
222 |
for ( my $i = 1 ; $i < $count ; $i++ ) { |
221 |
$query = $query . " AND (" . " surname LIKE ? OR surname LIKE ? |
223 |
$query = $query . " AND (" . " surname LIKE ? OR (surname LIKE ? AND surname REGEXP ?) |
222 |
OR firstname LIKE ? OR firstname LIKE ? |
224 |
OR firstname LIKE ? OR (firstname LIKE ? AND firstname REGEXP ?) |
223 |
OR othernames LIKE ? OR othernames LIKE ?)"; |
225 |
OR othernames LIKE ? OR (othernames LIKE ? AND othernames REGEXP ?))"; |
|
|
226 |
$regex = '[[:punct:][:space:]]'.$data[i]; |
224 |
push( @bind, |
227 |
push( @bind, |
225 |
"$data[$i]%", "% $data[$i]%", "$data[$i]%", |
228 |
"$data[i]%", "%$data[i]%", $regex, |
226 |
"% $data[$i]%", "$data[$i]%", "% $data[$i]%" ); |
229 |
"$data[i]%", "%$data[i]%", $regex, |
|
|
230 |
"$data[i]%", "%$data[i]%", $regex |
231 |
); |
232 |
|
227 |
|
233 |
|
228 |
# FIXME - .= <<EOT; |
234 |
# FIXME - .= <<EOT; |
229 |
} |
235 |
} |
230 |
- |
|
|