diff options
author | ivan <ivan> | 2002-02-26 11:53:25 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-02-26 11:53:25 +0000 |
commit | ffc6bb4416bc6e0c29d0e38a389a948d38c5534c (patch) | |
tree | da377ff4b79297710eb55c1016770c1e5a9ea5cd | |
parent | fc0715ded1a4c1ace11f1ad1df7600f726206afc (diff) |
okay, finally fix all the weirdness with shipping adresses. whew.
-rw-r--r-- | FS/FS/cust_main.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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 = |