X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FAPI.pm;h=0bc0d087ec0ab9dde813d40e4dae9f918dd127aa;hb=2b4ca5eec4564db2df08da6fa71592d010343783;hp=417f8899f18c37c3ec5263c38018b5951b79dbce;hpb=284d823cb3413061bdf966c72430c98d128e5aca;p=freeside.git

diff --git a/FS/FS/API.pm b/FS/FS/API.pm
index 417f8899f..0bc0d087e 100644
--- a/FS/FS/API.pm
+++ b/FS/FS/API.pm
@@ -1,8 +1,9 @@
 package FS::API;
 
 use FS::Conf;
-use FS::Record qw( qsearchs );
+use FS::Record qw( qsearch qsearchs );
 use FS::cust_main;
+use FS::cust_location;
 
 =head1 NAME
 
@@ -40,7 +41,6 @@ Enter cash refund.
 
 #---
 
-#generally, the more useful data from the cust_main record the better.
 
 
 # "2 way syncing" ?  start with non-sync pulling info here, then if necessary
@@ -95,10 +95,14 @@ sub customer_info {
   $return{'postal_invoicing'} =
     0 < ( grep { $_ eq 'POST' } @invoicing_list );
 
+  #generally, the more useful data from the cust_main record the better.
+  # well, tell me what you want
+
   return \%return;
 
 }
 
+
 #I also monitor for changes to the additional locations that are applied to
 # packages, and would like for those to be exportable as well.  basically the
 # location data passed with the custnum.
@@ -112,7 +116,7 @@ sub location_info {
 
   my %return = (
     'error'           => '',
-    'locations'       => [ @cust_location ],
+    'locations'       => [ map $_->hashref, @cust_location ],
   );
 
   return \%return;