diff options
| author | ivan <ivan> | 2009-02-09 11:45:19 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-02-09 11:45:19 +0000 |
| commit | 9925a640ebd475bf260b4d9e065b3f01e929e20a (patch) | |
| tree | 06f0d77889de63b5b0ec266f6b5d04fa4f235484 | |
| parent | 217630ac6f2b1f48a84f468b300fd9dc8c414283 (diff) | |
pull out the data for address fields too! RT#4583
| -rw-r--r-- | FS/FS/UI/Web.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm index 6386f9187..3c52ca547 100644 --- a/FS/FS/UI/Web.pm +++ b/FS/FS/UI/Web.pm @@ -332,9 +332,11 @@ sub cust_sql_fields { cust_header(@_); #inefficientish, but tiny lists and only run once per page + + my @add_fields = qw( address1 address2 city state zip daytime night fax ); push @fields, grep { my $field = $_; grep { $_ eq $field } @cust_fields } - qw( address1 address2 city state zip daytime night fax payby ); + ( @add_fields, ( map "ship_$_", @add_fields ), 'payby' ); my @extra_fields = (); if (grep { $_ eq 'current_balance' } @cust_fields) { |