From: Jason Stephenson <jstephenson@mvlc.org>
Date: Tue, 6 Mar 2012 18:21:14 +0000 (-0500)
Subject: Strip out spaces as well as - from phone numbers in PhoneList::Holds.
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3448c226d400d104599a05770522e2b95bc30efd;p=evergreen%2Fmasslnc.git

Strip out spaces as well as - from phone numbers in PhoneList::Holds.

Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
Signed-off-by: Ben Shum <bshum@biblio.org>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/PhoneList/Holds.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/PhoneList/Holds.pm
index b5df719482..5b1032cd66 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/PhoneList/Holds.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/PhoneList/Holds.pm
@@ -97,7 +97,7 @@ sub query {
             if ($i->{barcode} ne $bc || $i->{phone_notify} ne $pn) {
                 if ($count > 0 && $skipme == 0) {
                     my $phone = $pn;
-                    $phone =~ s/-//g;
+                    $phone =~ s/[- ]//g;
                     my $out = [$name, $phone, $bc];
                     push(@$out, $count) if ($self->addcount);
                     push(@{$self->{results}}, $out);