summaryrefslogtreecommitdiff
path: root/FS/FS/API.pm
diff options
context:
space:
mode:
authorIvan Kohler <ivan@freeside.biz>2014-07-17 06:45:02 -0700
committerIvan Kohler <ivan@freeside.biz>2014-07-17 06:45:02 -0700
commit8c39dadbacacbceec1bc0b6c5fbf1468b0d3cf32 (patch)
tree97b7619688cdd5f417458e93ad1736e7352b902b /FS/FS/API.pm
parent7943c96636596806b9fc99195c23b166728280c8 (diff)
REST API, RT#28181
Diffstat (limited to 'FS/FS/API.pm')
-rw-r--r--FS/FS/API.pm60
1 files changed, 6 insertions, 54 deletions
diff --git a/FS/FS/API.pm b/FS/FS/API.pm
index a0f1dba..45f8f5e 100644
--- a/FS/FS/API.pm
+++ b/FS/FS/API.pm
@@ -1,5 +1,6 @@
package FS::API;
+use strict;
use FS::Conf;
use FS::Record qw( qsearch qsearchs );
use FS::cust_main;
@@ -406,66 +407,18 @@ Referring customer number
sub new_customer {
my( $class, %opt ) = @_;
+
my $conf = new FS::Conf;
return { 'error' => 'Incorrect shared secret' }
unless $opt{secret} eq $conf->config('api_shared_secret');
#default agentnum like signup_server-default_agentnum?
+ #$opt{agentnum} ||= $conf->config('signup_server-default_agentnum');
#same for refnum like signup_server-default_refnum
+ $opt{refnum} ||= $conf->config('signup_server-default_refnum');
- my $cust_main = new FS::cust_main ( {
- 'agentnum' => $agentnum,
- 'refnum' => $opt{refnum}
- || $conf->config('signup_server-default_refnum'),
- 'payby' => 'BILL',
-
- map { $_ => $opt{$_} } qw(
- agentnum refnum agent_custid referral_custnum
- last first company
- daytime night fax mobile
- payby payinfo paydate paycvv payname
- ),
-
- } );
-
- my @invoicing_list = $opt{'invoicing_list'}
- ? split( /\s*\,\s*/, $opt{'invoicing_list'} )
- : ();
- push @invoicing_list, 'POST' if $opt{'postal_invoicing'};
-
- my ($bill_hash, $ship_hash);
- foreach my $f (FS::cust_main->location_fields) {
- # avoid having to change this in front-end code
- $bill_hash->{$f} = $opt{"bill_$f"} || $opt{$f};
- $ship_hash->{$f} = $opt{"ship_$f"};
- }
-
- my $bill_location = FS::cust_location->new($bill_hash);
- my $ship_location;
- # we don't have an equivalent of the "same" checkbox in selfservice^Wthis API
- # so is there a ship address, and if so, is it different from the billing
- # address?
- if ( length($ship_hash->{address1}) > 0 and
- grep { $bill_hash->{$_} ne $ship_hash->{$_} } keys(%$ship_hash)
- ) {
-
- $ship_location = FS::cust_location->new( $ship_hash );
-
- } else {
- $ship_location = $bill_location;
- }
-
- $cust_main->set('bill_location' => $bill_location);
- $cust_main->set('ship_location' => $ship_location);
-
- $error = $cust_main->insert( {}, \@invoicing_list );
- return { 'error' => $error } if $error;
-
- return { 'error' => '',
- 'custnum' => $cust_main->custnum,
- };
-
+ $class->API_insert( %opt );
}
=back
@@ -486,8 +439,7 @@ sub customer_info {
or return { 'error' => 'Unknown custnum' };
$cust_main->API_getinfo;
-
-}
+:
=item location_info