From: Kyle Huckins <khuckins@catalyte.io>
Date: Mon, 9 May 2022 18:23:54 +0000 (+0000)
Subject: lp1913815 Course Browse Case-Sensitivity Edge Case Cont'd
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=6593233e7ff60ca84647b840806342e8916245f7;p=working%2FEvergreen.git

lp1913815 Course Browse Case-Sensitivity Edge Case Cont'd

- Refactor Case Sensitivty check to fix issue requiring exact match

Signed-off-by: Kyle Huckins <khuckins@catalyte.io>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Course.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Course.pm
index c27bc38b82..39da9d6e24 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Course.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Course.pm
@@ -183,7 +183,7 @@ sub load_course_browse {
             if ($value_exists eq 0) {
                 # For Name/Course Number browse queries...
                 if ($bterm_match eq 0) {
-                    if ($bterm =~ qr/$result->{$qtype}/i) {
+                    if ($result->{$rqtype} =~ m/^$bterm./i || $result->{$rqtype} eq  m/^$bterm./i) {
                         $bterm_match = 1;
                         $entry->{'match'} = 1;
                     }