diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-04-21 12:03:49 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-04-21 12:03:49 -0700 |
| commit | 697ca3ce9ca4a6a357d6d2b1cfc31525edf252dc (patch) | |
| tree | a206994d4cc76d88e8c2b02558ad45c66e4a30aa | |
| parent | 354dc0b3bd778b9e430532300aa9704941b3926b (diff) | |
fix new_customer_minimal, RT#34084
| -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 c1633284f..abfcac882 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); @@ -931,7 +932,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 @@ -1046,7 +1046,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, |