From: Mark Wells <mark@freeside.biz>
Date: Tue, 30 Apr 2013 06:53:20 +0000 (-0700)
Subject: allow selfservice to remove service address, #20716
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=2487e70d1fa40cdfa2a8d0eca1bcc3ca9d1170cc;p=freeside.git

allow selfservice to remove service address, #20716
---

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index be87e594e..d946a6239 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -704,6 +704,14 @@ sub edit_info {
   $new->set( $_ => $p->{$_} )
     foreach grep { exists $p->{$_} } @cust_main_editable_fields;
 
+  if ( $new->ship_address1 eq '' ) {
+    # then the ship address is being set to null
+    $new->set($_ => '') 
+      foreach qw(ship_longitude ship_latitude ship_coord_auto ship_mobile);
+  }
+
+
+
   my $payby = '';
   if (exists($p->{'payby'})) {
     $p->{'payby'} =~ /^([A-Z]{4})$/