diff options
author | ivan <ivan> | 2001-09-27 21:32:36 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-09-27 21:32:36 +0000 |
commit | 0df810cde18282c08271a87c50568dd75b61a578 (patch) | |
tree | 2365d266316bfd367a8e6bdee8d40cdc75721e11 /fs_signup/FS-SignupClient/cgi/signup.html | |
parent | bc8a035db564658a7d9abdf3e141651c2de8082b (diff) |
popSELECTOR!
Diffstat (limited to 'fs_signup/FS-SignupClient/cgi/signup.html')
-rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.html | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup.html b/fs_signup/FS-SignupClient/cgi/signup.html index fcedde3ab..0f4742d20 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.html +++ b/fs_signup/FS-SignupClient/cgi/signup.html @@ -130,19 +130,8 @@ Contact Information (blank to generate)</TD> </TR> <TR> - <TD ALIGN="right">POP</TD> - <TD><SELECT NAME="popnum" SIZE=1><OPTION> - - <%= - foreach my $pop ( @{$pops} ) { - $OUT .= '<OPTION VALUE="'. $pop->{'popnum'}. '"'; - $OUT .= ' SELECTED' if $popnum && $pop->{'popnum'} == $popnum; - $OUT .= '>'. $pop->{'popnum'}. ': '. $pop->{'city'}. ', '. - $pop->{'state'}. ' ('. $pop->{'ac'}. ')/'. $pop->{'exch'}. "\n"; - } - %> - - </SELECT></TD> + <TD ALIGN="right">Access number</TD> + <TD><%= popselector($popnum) %></TD> </TR> </TABLE> <BR><BR><INPUT TYPE="submit" VALUE="Signup"> |