summaryrefslogtreecommitdiff
path: root/fs_signup/FS-SignupClient/cgi/signup.html
diff options
context:
space:
mode:
authorivan <ivan>2004-11-22 18:20:21 +0000
committerivan <ivan>2004-11-22 18:20:21 +0000
commita5a258c91c5dc78897d16627b8092385ceb4c4d2 (patch)
treeed92c98b0ed7c2a8647b8b92c50bd2acfc8e394b /fs_signup/FS-SignupClient/cgi/signup.html
parent97ddf39b5798913bbd2b0205b2767df2cd362a2b (diff)
promo codes and separate signup addresses for hdn
Diffstat (limited to 'fs_signup/FS-SignupClient/cgi/signup.html')
-rwxr-xr-xfs_signup/FS-SignupClient/cgi/signup.html9
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'};
}
%>