X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=circ%2Fysearch.pl;h=f8fc52a88572a536415601df1e48d80075b60967;hb=50c0ae09a12e10b851022d6b3fe18aa0b345a98b;hp=cdd2530f9ac7d8406e2710cc4af4633cb9ad41af;hpb=62391ab1d77ef9e1c8f88c5e72264450b262af93;p=koha_gimpoz diff --git a/circ/ysearch.pl b/circ/ysearch.pl index cdd2530f9a..f8fc52a885 100755 --- a/circ/ysearch.pl +++ b/circ/ysearch.pl @@ -15,9 +15,9 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. =head1 ysearch.pl @@ -25,6 +25,7 @@ =cut use strict; +#use warnings; FIXME - Bug 2505 use CGI; use C4::Context; use C4::Auth qw/check_cookie_auth/; @@ -41,19 +42,21 @@ if ($auth_status ne "ok") { } my $dbh = C4::Context->dbh; -my $sql = qq(SELECT surname, firstname, cardnumber, address, city, zipcode +my $sql = qq(SELECT surname, firstname, cardnumber, address, city, zipcode, country FROM borrowers WHERE surname LIKE ? OR firstname LIKE ? + OR cardnumber LIKE ? ORDER BY surname, firstname); - #"OR cardnumber LIKE '" . $query . "%' " . 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" . $rec->{address} . "\t" . $rec->{city} . "\t" . - $rec->{zip} . + $rec->{zip} . "\t" . + $rec->{country} . "\n"; }