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 b5df719..5b1032c 100644 (file)
--- 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);