From 3448c226d400d104599a05770522e2b95bc30efd Mon Sep 17 00:00:00 2001 From: Jason Stephenson Date: Tue, 6 Mar 2012 13:21:14 -0500 Subject: [PATCH] Strip out spaces as well as - from phone numbers in PhoneList::Holds. Signed-off-by: Jason Stephenson Signed-off-by: Lebbeous Fogle-Weekley Signed-off-by: Ben Shum --- Open-ILS/src/perlmods/lib/OpenILS/WWW/PhoneList/Holds.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- 2.11.0