From 93dfe7572b5480a5e72d2d9c54be125583a11f48 Mon Sep 17 00:00:00 2001 From: Doug Kyle Date: Fri, 14 Oct 2011 17:01:46 -0400 Subject: [PATCH] Branchify Doug Kyle's patch on Launchpad bug 874603. --- .../src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm index c638e1cbc4..bef250f67b 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm @@ -672,7 +672,11 @@ sub patron_search { my $card = ''; if ($cv) { - $card = 'JOIN (SELECT DISTINCT usr FROM actor.card WHERE evergreen.lowercase(barcode) LIKE ?||\'%\') AS card ON (card.usr = users.id)'; + if ( $cv =~ /[A-Za-z]/) { + $card = 'JOIN (SELECT DISTINCT usr FROM actor.card WHERE evergreen.lowercase(barcode) LIKE ?||\'%\') AS card ON (card.usr = users.id)'; + } else { + $card = 'JOIN (SELECT DISTINCT usr FROM actor.card WHERE barcode LIKE ?||\'%\') AS card ON (card.usr = users.id)'; + } unshift(@usrv, $cv); } -- 2.11.0