diff options
| author | ivan <ivan> | 2003-06-24 15:34:41 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-06-24 15:34:41 +0000 |
| commit | b7c62a8e6203ea64674a92949d6811b955887f3f (patch) | |
| tree | bf0941cef40ed4370547a64e2fd540e2590710b5 | |
| parent | c68ad5f7a297c7ac330b22a8938f01b9a2d5e1ef (diff) | |
display full POP numbers in signup server - patch from "Stephen Bechard" <steve@destek.net>
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index 1b87045b2..d483435d3 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.cgi +++ b/fs_signup/FS-SignupClient/cgi/signup.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: signup.cgi,v 1.29.2.5 2002-12-24 23:03:25 ivan Exp $ +# $Id: signup.cgi,v 1.29.2.6 2003-06-24 15:34:41 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages $pops $init_data $error @@ -380,7 +380,7 @@ sub popselector { return '<INPUT TYPE="hidden" NAME="popnum" VALUE="">' unless @$pops; return $pops->[0]{city}. ', '. $pops->[0]{state}. - ' ('. $pops->[0]{ac}. ')/'. $pops->[0]{exch}. + ' ('. $pops->[0]{ac}. ')/'. $pops->[0]{exch}. '-'. $pops->[0]{loc}. '<INPUT TYPE="hidden" NAME="popnum" VALUE="'. $pops->[0]{popnum}. '">' if scalar(@$pops) == 1; @@ -408,7 +408,7 @@ END foreach my $pop ( @{$pop{$popstate}}) { my $o_popnum = $pop->{popnum}; my $poptext = $pop->{city}. ', '. $pop->{state}. - ' ('. $pop->{ac}. ')/'. $pop->{exch}; + ' ('. $pop->{ac}. ')/'. $pop->{exch}. '-'. $pop->{loc}; $text .= "opt(what.form.popnum, \"$o_popnum\", \"$poptext\");\n" } @@ -428,7 +428,7 @@ END $text .= qq!<OPTION VALUE="!. $pop->{popnum}. '"'. ( ( $popnum && $pop->{popnum} == $popnum ) ? ' SELECTED' : '' ). ">". $pop->{city}. ', '. $pop->{state}. - ' ('. $pop->{ac}. ')/'. $pop->{exch}; + ' ('. $pop->{ac}. ')/'. $pop->{exch}. '-'. $pop->{loc}; } $text .= '</SELECT>'; |