From 6593233e7ff60ca84647b840806342e8916245f7 Mon Sep 17 00:00:00 2001 From: Kyle Huckins Date: Mon, 9 May 2022 18:23:54 +0000 Subject: [PATCH] lp1913815 Course Browse Case-Sensitivity Edge Case Cont'd - Refactor Case Sensitivty check to fix issue requiring exact match Signed-off-by: Kyle Huckins --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Course.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; } -- 2.11.0