summaryrefslogtreecommitdiff
path: root/FS/FS
diff options
context:
space:
mode:
authormark <mark>2010-08-25 09:42:04 +0000
committermark <mark>2010-08-25 09:42:04 +0000
commit01618f9ed8c0f96d9d17b355cc9db2e54b004397 (patch)
treec768378ac2ebd39611d60283896d7567a6c20f2f /FS/FS
parent678a99d01de1bd98dd49110d3862d173918fc9b8 (diff)
clear signup_info cache when starting xmlrpcd, RT#9380
Diffstat (limited to 'FS/FS')
-rw-r--r--FS/FS/ClientAPI/Signup.pm11
-rw-r--r--FS/FS/ClientAPI_XMLRPC.pm1
2 files changed, 11 insertions, 1 deletions
diff --git a/FS/FS/ClientAPI/Signup.pm b/FS/FS/ClientAPI/Signup.pm
index 26d3612..2eefcf8 100644
--- a/FS/FS/ClientAPI/Signup.pm
+++ b/FS/FS/ClientAPI/Signup.pm
@@ -26,6 +26,15 @@ use FS::payby;
$DEBUG = 0;
$me = '[FS::ClientAPI::Signup]';
+sub clear_cache {
+ warn "$me clear_cache called\n" if $DEBUG;
+ my $cache = new FS::ClientAPI_SessionCache( {
+ 'namespace' => 'FS::ClientAPI::Signup',
+ } );
+ $cache->clear();
+ return {};
+}
+
sub signup_info {
my $packet = shift;
@@ -90,7 +99,7 @@ sub signup_info {
],
'agent' => [ map { my $agent = $_;
- { map { $_ => $agent->get($_) } @agent_fields }
+ +{ map { $_ => $agent->get($_) } @agent_fields }
}
qsearch('agent', { 'disabled' => '' } )
],
diff --git a/FS/FS/ClientAPI_XMLRPC.pm b/FS/FS/ClientAPI_XMLRPC.pm
index cfaf009..32e96b8 100644
--- a/FS/FS/ClientAPI_XMLRPC.pm
+++ b/FS/FS/ClientAPI_XMLRPC.pm
@@ -104,6 +104,7 @@ sub ss2clientapi {
'domain_select_hash' => 'Signup/domain_select_hash', # expose?
'new_customer' => 'Signup/new_customer',
'capture_payment' => 'Signup/capture_payment',
+ 'clear_signup_cache' => 'Signup/clear_cache',
'agent_login' => 'Agent/agent_login',
'agent_logout' => 'Agent/agent_logout',
'agent_info' => 'Agent/agent_info',