[open-ils-commits] r17019 - branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher (gmc)

[svn at svn.open-ils.org]

Author: gmc
Date: 2010-07-22 17:47:48 -0400 (Thu, 22 Jul 2010)
New Revision: 17019

Modified:
   branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
Log:
bug #608937: make barcode search from main patron search form case-insensitive

Signed-off-by: Galen Charlton <gmc at esilibrary.com>


Modified: branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
===================================================================
--- branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm	2010-07-22 21:47:07 UTC (rev 17018)
+++ branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm	2010-07-22 21:47:48 UTC (rev 17019)
@@ -501,7 +501,7 @@
 
 	my $card = '';
 	if ($cv) {
-	    $card = 'JOIN (SELECT DISTINCT usr FROM actor.card WHERE barcode LIKE ?||\'%\') AS card ON (card.usr = users.id)';
+	    $card = 'JOIN (SELECT DISTINCT usr FROM actor.card WHERE LOWER(barcode) LIKE ?||\'%\') AS card ON (card.usr = users.id)';
 	    unshift(@usrv, $cv);
 	}