diff options
| author | ivan <ivan> | 2003-07-04 01:54:21 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-07-04 01:54:21 +0000 |
| commit | bbc635921397bcd79dc6b4e597fb20180ae356e6 (patch) | |
| tree | 8982bf0a51b633f6a58b2381b9cc6794badc82c2 | |
| parent | 4a35ce5a5ea26fe801c5bccd29ce6ff35ae5ef2d (diff) | |
don't add extra blank pop
| -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 ccfeb8d5d..18d5a893c 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.29.2.9 2003-07-04 01:48:29 ivan Exp $ +# $Id: signup.cgi,v 1.29.2.10 2003-07-04 01:54:21 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages @@ -425,9 +425,9 @@ END $text .= qq!<SELECT NAME="popnum" SIZE=1><OPTION> !; #comment this block to disable initial list population - 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; } |