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 ebbaa3c..a19741f 100644 (file)
--- 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;
             }
         }
     };