From 8758f2a6b5cb72ef04b95659eaf1c99c2e1f0be0 Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 4 Jul 2003 01:37:44 +0000 Subject: [PATCH] don't populate the whole initial list if there are tons of POPs --- FS/FS/svc_acct_pop.pm | 10 +++++-- fs_signup/FS-SignupClient/cgi/signup.cgi | 37 ++++++++++++++---------- 2 files changed, 30 insertions(+), 17 deletions(-) diff --git a/FS/FS/svc_acct_pop.pm b/FS/FS/svc_acct_pop.pm index bb2d3fd0a..d2247658b 100644 --- a/FS/FS/svc_acct_pop.pm +++ b/FS/FS/svc_acct_pop.pm @@ -166,7 +166,13 @@ END $text .= ''; #callback? return 3 html pieces? #''; $text .= qq!' if scalar(@$pops) == 1; - my %pop = (); - push @{ $pop{$_->{state}} }, $_ foreach @$pops; + #my %pop = (); + #push @{ $pop{$_->{state}} }, $_ foreach @$pops; my $text = < @@ -423,7 +423,14 @@ END $text .= ''; #callback? return 3 html pieces? #''; $text .= qq!