FROM borrowers
WHERE surname LIKE ?
OR firstname LIKE ?
- ORDER BY surname, firstname);
- #"OR cardnumber LIKE '" . $query . "%' " .
+ OR cardnumber LIKE ?);
+if (C4::Context->preference("IndependentBranchPatron")){
+ if (C4::Context->userenv && (C4::Context->userenv->{flags} % 2) !=1 && C4::Context->userenv->{'branch'}){
+ $sql.=" AND borrowers.branchcode =".$dbh->quote(C4::Context->userenv->{'branch'}) unless (C4::Context->userenv->{'branch'} eq "insecure");
+ }
+}
+
+$sql .= qq( ORDER BY surname, firstname);
my $sth = $dbh->prepare( $sql );
-$sth->execute("$query%", "$query%");
+$sth->execute("$query%", "$query%", "$query%");
+
while ( my $rec = $sth->fetchrow_hashref ) {
print $rec->{surname} . ", " . $rec->{firstname} . "\t" .
$rec->{cardnumber} . "\t" .