diff options
author | ivan <ivan> | 2003-07-04 01:48:24 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-07-04 01:48:24 +0000 |
commit | 349bf226f727807000f517f5a48a806bf660290f (patch) | |
tree | 3caab6957dd834d01fcb30e184097c602f649481 /fs_signup/FS-SignupClient/cgi/signup.cgi | |
parent | f2098c54512150c098f28f59ffe4a62464ef630e (diff) |
typo
Diffstat (limited to 'fs_signup/FS-SignupClient/cgi/signup.cgi')
-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 b40068520..ebdcaf0b9 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.39 2003-07-04 01:37:46 ivan Exp $ +# $Id: signup.cgi,v 1.40 2003-07-04 01:48:24 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages @@ -463,10 +463,11 @@ END #comment this block to disable initial list polulation + 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}. '"'. |