diff options
| author | ivan <ivan> | 2003-12-10 23:56:53 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-12-10 23:56:53 +0000 |
| commit | 1b6b82cf91ed7fe266fdd169299a7e2c5eb8e9ea (patch) | |
| tree | 9649c8e8a74a846ebc8aab7888fd3d7427c4e89e /fs_signup/FS-SignupClient/cgi/signup.html | |
| parent | 4398d53a857bd3a7f478d4a000fad8a1c4e6b50f (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 dd65020f8..2b35d4a51 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> |