diff options
| author | ivan <ivan> | 2003-12-10 23:53:34 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-12-10 23:53:34 +0000 |
| commit | e58b9fa1cdf0693f29d0d3db9c861cf4ecd7a77c (patch) | |
| tree | fd1d3817089ca47349757f7496470915ea2dc0e7 /fs_signup/FS-SignupClient/cgi/signup.html | |
| parent | a5bc5bcbadafe55b31d9e97fccb6122477e390fb (diff) | |
signup page w/advertising source dropdown
Diffstat (limited to 'fs_signup/FS-SignupClient/cgi/signup.html')
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.html | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup.html b/fs_signup/FS-SignupClient/cgi/signup.html index dc4252c73..96bdac666 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.html +++ b/fs_signup/FS-SignupClient/cgi/signup.html @@ -18,6 +18,16 @@ <INPUT TYPE="hidden" NAME="magic" VALUE="process"> <INPUT TYPE="hidden" NAME="ref" VALUE="<%= $referral_custnum %>"> <INPUT TYPE="hidden" NAME="ss" VALUE=""> +Where did you hear about our service? <SELECT NAME="refnum"> +<%= + $OUT .= '<OPTION VALUE="">' unless $refnum; + foreach my $part_referral ( @{$init_data->{'part_referral'}} ) { + $OUT .= '<OPTION VALUE="'. $part_referral->{'refnum'}. '"'; + $OUT .= ' SELECTED' if $part_referral->{'refnum'} eq $refnum; + $OUT .= '>'. $part_referral->{'referral'}; + } +%> +</SELECT><BR><BR> Contact Information <TABLE BGCOLOR="#c0c0c0" BORDER=0 CELLSPACING=0 WIDTH="100%"> <TR> |