X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcontact.pm;h=89bfb745b3c4cb48dac5bcd403bdea162b54cdcd;hb=b37cafd2acd4ab2c38b44bc4d8ebde76936ef6bb;hp=07458c74286799028eaee1c1405640f698cc1ef4;hpb=167dbdad01e2c1b62fd9be43cc05212e8c874a02;p=freeside.git diff --git a/FS/FS/contact.pm b/FS/FS/contact.pm index 07458c742..89bfb745b 100644 --- a/FS/FS/contact.pm +++ b/FS/FS/contact.pm @@ -452,8 +452,11 @@ sub replace { ); my $contact_phone = qsearchs('contact_phone', \%cp); + my $pv = $self->get($pf); + $pv =~ s/\s//g; + #if new value is empty, delete old entry - if (!$self->get($pf)) { + if (!$pv) { if ($contact_phone) { $error = $contact_phone->delete; if ( $error ) { @@ -464,7 +467,9 @@ sub replace { next; } - my %cpd = _parse_phonestring( $self->get($pf) ); + $contact_phone ||= new FS::contact_phone \%cp; + + my %cpd = _parse_phonestring( $pv ); $contact_phone->set( $_ => $cpd{$_} ) foreach keys %cpd; my $method = $contact_phone->contactphonenum ? 'replace' : 'insert';