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:
8141f1d
)
cache initial signup_info for performance
author
ivan
<ivan>
Fri, 19 Sep 2003 12:02:45 +0000
(12:02 +0000)
committer
ivan
<ivan>
Fri, 19 Sep 2003 12:02:45 +0000
(12:02 +0000)
FS/FS/ClientAPI/Signup.pm
patch
|
blob
|
history
diff --git
a/FS/FS/ClientAPI/Signup.pm
b/FS/FS/ClientAPI/Signup.pm
index
710c16c
..
8f6dc29
100644
(file)
--- a/
FS/FS/ClientAPI/Signup.pm
+++ b/
FS/FS/ClientAPI/Signup.pm
@@
-23,7
+23,8
@@
sub signup_info {
my $conf = new FS::Conf;
my $conf = new FS::Conf;
- my $signup_info = {
+ use vars qw($signup_info); #cache for performance;
+ $signup_info ||= {
'cust_main_county' =>
[ map { $_->hashref } qsearch('cust_main_county', {}) ],
'cust_main_county' =>
[ map { $_->hashref } qsearch('cust_main_county', {}) ],
@@
-57,7
+58,10
@@
sub signup_info {
};
};
- if ( $conf->config('signup_server-default_agentnum') ) {
+ if (
+ $conf->config('signup_server-default_agentnum')
+ || !exists $signup_info->{'part_pkg'} #cache for performance
+ ) {
my $agentnum = $conf->config('signup_server-default_agentnum');
my $agent = qsearchs( 'agent', { 'agentnum' => $agentnum } )
or die "fatal: signup_server-default_agentnum $agentnum not found\n";
my $agentnum = $conf->config('signup_server-default_agentnum');
my $agent = qsearchs( 'agent', { 'agentnum' => $agentnum } )
or die "fatal: signup_server-default_agentnum $agentnum not found\n";