LP#1741997: adjust normalization so that heading type matching works better

Signed-off-by: Galen Charlton <gmc@equinoxinitiative.org>

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 8f537c5..d817c2c 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm
@@ -6,7 +6,7 @@ use warnings;
 use OpenSRF::Utils::Logger qw/$logger/;
 use OpenILS::Utils::CStoreEditor qw/:funcs/;
 use OpenILS::Utils::Fieldmapper;
-use OpenILS::Utils::Normalize qw/search_normalize/;
+use OpenILS::Utils::Normalize qw/naco_normalize search_normalize/;
 use OpenILS::Application::AppUtils;
 use OpenSRF::Utils::JSON;
 use OpenSRF::Utils::Cache;
@@ -145,7 +145,7 @@ sub find_authority_headings_and_notes {
             my $h = { main_entry => ( $acsaf->main_entry ? 0 : 1 ),
                       heading => _get_authority_heading($field, \%sf_lookup, $acsaf->joiner) };
 
-            my $norm = search_normalize($h->{heading});
+            my $norm = naco_normalize($h->{heading});
             if (exists $heading_type_map{$norm}) {
                 $h->{type} = $heading_type_map{$norm};
             }