diff options
author | ivan <ivan> | 2003-07-04 01:54:17 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-07-04 01:54:17 +0000 |
commit | 2dea5fa76be5ba6b2a23fe84371aa921ae188100 (patch) | |
tree | 3cfaf75e82fdb3176cb711f139d95321399e6a37 /fs_signup | |
parent | 349bf226f727807000f517f5a48a806bf660290f (diff) |
don't add extra blank pop
Diffstat (limited to 'fs_signup')
-rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index ebdcaf0b9..3c3fb6442 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.cgi +++ b/fs_signup/FS-SignupClient/cgi/signup.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: signup.cgi,v 1.40 2003-07-04 01:48:24 ivan Exp $ +# $Id: signup.cgi,v 1.41 2003-07-04 01:54:17 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages @@ -463,9 +463,9 @@ END #comment this block to disable initial list polulation - my @initial_select; + my @initial_select = (); if ( scalar( @$pops ) > 100 ) { - @initial_select = ( $popnum2pop{$popnum} ); + push @initial_select, $popnum2pop{$popnum} if $popnum2pop{$popnum}; } else { @initial_select = @$pops; } |