From b2e6af304e3671d8dc29931201c6e46d872957d7 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 5 Mar 2014 18:31:51 -0800 Subject: [PATCH] API methods to pull customer information: name, phone numbers, email and postal billing info, and address info in a normalized 2.3/3.x fashion, RT#22830 --- FS/FS/API.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/FS/FS/API.pm b/FS/FS/API.pm index df488023e..9deed3daf 100644 --- a/FS/FS/API.pm +++ b/FS/FS/API.pm @@ -101,7 +101,16 @@ sub customer_info { ); $return{$_} = $cust_main->get($_) - foreach @cust_main_editable_fields; + foreach ( @cust_main_editable_fields, + @location_editable_fields, + map "ship_$_", @location_editable_fields, + ); + + my @invoicing_list = $cust_main->invoicing_list; + $return{'invoicing_list'} = + join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ); + $return{'postal_invoicing'} = + 0 < ( grep { $_ eq 'POST' } @invoicing_list ); return \%return; -- 2.11.0