diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-04-21 12:03:52 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-04-21 12:03:52 -0700 |
| commit | 4cd203a4114fc5fd45960019b617a42b534c589e (patch) | |
| tree | 0cbff5187901fcdcbed07cda10ce907ca0500eb9 /FS/FS/ClientAPI/Signup.pm | |
| parent | b54dbcd5bf26986115279680e12668cf9a0b51b7 (diff) | |
fix new_customer_minimal, RT#34084
Diffstat (limited to 'FS/FS/ClientAPI/Signup.pm')
| -rw-r--r-- | FS/FS/ClientAPI/Signup.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/ClientAPI/Signup.pm b/FS/FS/ClientAPI/Signup.pm index 468624cd2..7705b90ac 100644 --- a/FS/FS/ClientAPI/Signup.pm +++ b/FS/FS/ClientAPI/Signup.pm @@ -2,6 +2,7 @@ package FS::ClientAPI::Signup; use strict; use vars qw( $DEBUG $me ); +use subs qw( _myaccount_cache ); use Data::Dumper; use Tie::RefHash; use Digest::SHA qw(sha512_hex); @@ -941,7 +942,6 @@ sub new_customer_minimal { 'refnum' => $packet->{refnum} || $conf->config('signup_server-default_refnum'), 'tagnum' => [ FS::part_tag->default_tags ], - 'payby' => 'BILL', map { $_ => $packet->{$_} } qw( salesnum @@ -1056,7 +1056,7 @@ sub new_customer_minimal { $session_id = sha512_hex(time(). {}. rand(). $$) } until ( ! defined _myaccount_cache->get($session_id) ); #just in case - _cache->set( $session_id, $session, '1 hour' ); # 1 hour? + _myaccount_cache->set( $session_id, $session, '1 hour' ); # 1 hour? my %return = ( 'error' => '', 'signup_service' => $svc_x, |