diff options
| author | ivan <ivan> | 2003-07-04 01:48:29 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-07-04 01:48:29 +0000 |
| commit | 4a35ce5a5ea26fe801c5bccd29ce6ff35ae5ef2d (patch) | |
| tree | 30de7a16f97060923038c06f3a499b738942b5b6 | |
| parent | 8758f2a6b5cb72ef04b95659eaf1c99c2e1f0be0 (diff) | |
typo
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index 41d28fedb..ccfeb8d5d 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.8 2003-07-04 01:37:44 ivan Exp $ +# $Id: signup.cgi,v 1.29.2.9 2003-07-04 01:48:29 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages @@ -425,10 +425,11 @@ END $text .= qq!<SELECT NAME="popnum" SIZE=1><OPTION> !; #comment this block to disable initial list population + my @initial_select; if ( scalar( @$pops ) > 100 ) { @initial_select = ( $popnum2pop{$popnum} ); } else { - @initial_select = $@pops; + @initial_select = @$pops; } foreach my $pop ( sort { $a->{state} cmp $b->{state} } @initial_select ) { $text .= qq!<OPTION VALUE="!. $pop->{popnum}. '"'. |