From c2372abaeef3885a3f44d79162fdc3c2641d7e8c Mon Sep 17 00:00:00 2001 From: Michael Glass Date: Fri, 22 May 2015 15:17:44 -0700 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; } } }; -- 2.11.0