diff options
author | mark <mark> | 2010-08-25 09:42:04 +0000 |
---|---|---|
committer | mark <mark> | 2010-08-25 09:42:04 +0000 |
commit | 01618f9ed8c0f96d9d17b355cc9db2e54b004397 (patch) | |
tree | c768378ac2ebd39611d60283896d7567a6c20f2f /FS/FS | |
parent | 678a99d01de1bd98dd49110d3862d173918fc9b8 (diff) |
clear signup_info cache when starting xmlrpcd, RT#9380
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/ClientAPI/Signup.pm | 11 | ||||
-rw-r--r-- | FS/FS/ClientAPI_XMLRPC.pm | 1 |
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', |