From: Michael Glass <mglass@catalystitservices.com>
Date: Fri, 22 May 2015 22:17:44 +0000 (-0700)
Subject: KMAIN 1722 Browse search case insensitive articles
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=c2372abaeef3885a3f44d79162fdc3c2641d7e8c;p=working%2FEvergreen.git

KMAIN 1722 Browse search case insensitive articles

	Add case insensitive flag to regex which creates search suggestions
	when a search with a/an/the is performed

	modified:   Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm

Signed-off-by: Michael Glass <mglass@catalystitservices.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm
index ebbaa3c3f2..a19741fcc4 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm
@@ -16,7 +16,7 @@ use Digest::MD5 qw/md5_hex/;
 use Apache2::Const -compile => qw/OK/;
 use MARC::Record;
 use List::Util qw/first/;
-#use Data::Dumper;
+use Data::Dumper;
 #$Data::Dumper::Indent = 0;
 
 my $U = 'OpenILS::Application::AppUtils';
@@ -347,7 +347,7 @@ sub leading_article_test {
             if ($bterm =~ qr/$map->{$qtype}/i) {
                 $self->ctx->{browse_leading_article_warning} = 1;
                 ($self->ctx->{browse_leading_article_alternative} = $bterm) =~
-                    s/$map->{$qtype}//;
+                    s/$map->{$qtype}//i;
             }
         }
     };