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 c27bc38..39da9d6 100644 (file)
--- 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;
                     }