From: Bill Erickson <berickxx@gmail.com>
Date: Wed, 17 Feb 2016 21:46:37 +0000 (-0500)
Subject: JBAS-984 Addr normalizer shortens road/avenue
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7d6d2950288ad9f1feb6309373869a9083bb2497;p=working%2FEvergreen.git

JBAS-984 Addr normalizer shortens road/avenue

Signed-off-by: Bill Erickson <berickxx@gmail.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/KCLSNormalize.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/KCLSNormalize.pm
index 7b12680daf..dfbbe2d5d6 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/KCLSNormalize.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/KCLSNormalize.pm
@@ -10,8 +10,11 @@ sub normalize_address_street {
     # period, or end of line, so as not to clobber names that contain AV.
     if (my $s1 = $street1) {
         $s1 =~ s/\s+AV(\s|\.|$)+/ AVE /g;
+        $s1 =~ s/\s+AVENUE(\s|$)+/ AVE /g;
         $s1 =~ s/\s+ST\.(\s|$)+/ ST /g;
         $s1 =~ s/\s+STREET(\s|$)+/ ST /g;
+        $s1 =~ s/\s+RD\.(\s|$)+/ RD /g;
+        $s1 =~ s/\s+ROAD(\s|$)+/ RD /g;
         $s1 =~ s/(^\s*|\s*$)//g; # remove opening/trailing spaces
         $street1 = $s1;
     }