From: ivan <ivan>
Date: Tue, 26 Feb 2002 11:53:25 +0000 (+0000)
Subject: okay, finally fix all the weirdness with shipping adresses.  whew.
X-Git-Tag: freeside_1_4_0_pre12~185
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=ffc6bb4416bc6e0c29d0e38a389a948d38c5534c;p=freeside.git

okay, finally fix all the weirdness with shipping adresses.  whew.
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index cf5bd3314..b6d3075e8 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -586,8 +586,9 @@ sub check {
   );
 
   if ( defined $self->dbdef_table->column('ship_last') ) {
-    if ( grep { $self->getfield($_) ne $self->getfield("ship_$_") } @addfields
-         && grep { $self->getfield("ship_$_") ne '' } @addfields
+    if ( scalar ( grep { $self->getfield($_) ne $self->getfield("ship_$_") }
+                       @addfields )
+         && scalar ( grep { $self->getfield("ship_$_") ne '' } @addfields )
        )
     {
       my $error =