projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
354dc0b
)
fix new_customer_minimal, RT#34084
author
Ivan Kohler
<ivan@freeside.biz>
Tue, 21 Apr 2015 19:03:49 +0000
(12:03 -0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Tue, 21 Apr 2015 19:03:49 +0000
(12:03 -0700)
FS/FS/ClientAPI/Signup.pm
patch
|
blob
|
history
diff --git
a/FS/FS/ClientAPI/Signup.pm
b/FS/FS/ClientAPI/Signup.pm
index
c163328
..
abfcac8
100644
(file)
--- 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 strict;
use vars qw( $DEBUG $me );
+use subs qw( _myaccount_cache );
use Data::Dumper;
use Tie::RefHash;
use Digest::SHA qw(sha512_hex);
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 ],
'refnum' => $packet->{refnum}
|| $conf->config('signup_server-default_refnum'),
'tagnum' => [ FS::part_tag->default_tags ],
- 'payby' => 'BILL',
map { $_ => $packet->{$_} } qw(
salesnum
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
$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,
my %return = ( 'error' => '',
'signup_service' => $svc_x,