diff options
| author | ivan <ivan> | 2003-07-04 01:37:44 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-07-04 01:37:44 +0000 |
| commit | 8758f2a6b5cb72ef04b95659eaf1c99c2e1f0be0 (patch) | |
| tree | 869195d8f258c76e486ad701453a5d7848f8db01 /FS | |
| parent | 6aaed38414526e6074fae5ad5aad030f184f300b (diff) | |
don't populate the whole initial list if there are tons of POPs
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/svc_acct_pop.pm | 10 |
1 files changed, 8 insertions, 2 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 .= '</SELECT>'; #callback? return 3 html pieces? #'</TD><TD>'; $text .= qq!<SELECT NAME="popnum" SIZE=1><OPTION> !; - foreach my $pop ( @svc_acct_pop ) { + my @initial_select; + if ( scalar(@svc_acct_pop) > 100 ) { + @initial_select = qsearchs( 'svc_acct_pop', { 'popnum' => $popnum } ); + } else { + @initial_select = @svc_acct_pop; + } + foreach my $pop ( @initial_select ) { $text .= qq!<OPTION VALUE="!. $pop->popnum. '"'. ( ( $popnum && $pop->popnum == $popnum ) ? ' SELECTED' : '' ). ">". $pop->text; @@ -181,7 +187,7 @@ END =head1 VERSION -$Id: svc_acct_pop.pm,v 1.7.4.1 2003-07-04 00:51:30 ivan Exp $ +$Id: svc_acct_pop.pm,v 1.7.4.2 2003-07-04 01:37:44 ivan Exp $ =head1 BUGS |