diff options
Diffstat (limited to 'fs_signup/FS-SignupClient/cgi/signup.html')
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.html | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup.html b/fs_signup/FS-SignupClient/cgi/signup.html index a6cbf2146..c0e4f73eb 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.html +++ b/fs_signup/FS-SignupClient/cgi/signup.html @@ -167,14 +167,17 @@ Contact Information </TR></TABLE><font color="#ff0000">*</font> required fields for each billing type <BR><BR>First package -<TABLE BGCOLOR="#c0c0c0" BORDER=0 CELLSPACING=0 WIDTH="100%"> +<INPUT TYPE="hidden" NAME="promo_code" VALUE="<%= $cgi->param('promo_code') %>"><TABLE BGCOLOR="#c0c0c0" BORDER=0 CELLSPACING=0 WIDTH="100%"> <TR> - <TD COLSPAN=2><SELECT NAME="pkgpart"><OPTION VALUE="">(none) + <TD COLSPAN=2><SELECT NAME="pkgpart"> <%= + $OUT .= '<OPTION VALUE="">(none)' unless scalar(@$packages) == 1; foreach my $package ( @{$packages} ) { $OUT .= '<OPTION VALUE="'. $package->{'pkgpart'}. '"'; - $OUT .= ' SELECTED' if $pkgpart && $package->{'pkgpart'} == $pkgpart; + $OUT .= ' SELECTED' + if ( $pkgpart && $package->{'pkgpart'} == $pkgpart ) + || scalar(@$packages) == 1; $OUT .= '>'. $package->{'pkg'}; } %> |