projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
4383c98
)
display full POP numbers in signup server - patch from "Stephen Bechard" <steve@deste...
author
ivan
<ivan>
Tue, 24 Jun 2003 15:34:45 +0000
(15:34 +0000)
committer
ivan
<ivan>
Tue, 24 Jun 2003 15:34:45 +0000
(15:34 +0000)
fs_signup/FS-SignupClient/cgi/signup.cgi
patch
|
blob
|
history
diff --git
a/fs_signup/FS-SignupClient/cgi/signup.cgi
b/fs_signup/FS-SignupClient/cgi/signup.cgi
index
e384aaf
..
de142a1
100755
(executable)
--- a/
fs_signup/FS-SignupClient/cgi/signup.cgi
+++ b/
fs_signup/FS-SignupClient/cgi/signup.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: signup.cgi,v 1.3
6 2003-04-21 20:53:57
ivan Exp $
+# $Id: signup.cgi,v 1.3
7 2003-06-24 15:34:45
ivan Exp $
use strict;
use vars qw( @payby $cgi $locales $packages $pops $init_data $error
use strict;
use vars qw( @payby $cgi $locales $packages $pops $init_data $error
@@
-382,7
+382,7
@@
sub popselector {
return '<INPUT TYPE="hidden" NAME="popnum" VALUE="">' unless @$pops;
return $pops->[0]{city}. ', '. $pops->[0]{state}.
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;
'<INPUT TYPE="hidden" NAME="popnum" VALUE="'. $pops->[0]{popnum}. '">'
if scalar(@$pops) == 1;
@@
-435,7
+435,7
@@
END
foreach my $pop ( @{$pop{$state}->{$popac}}) {
my $o_popnum = $pop->{popnum};
my $poptext = $pop->{city}. ', '. $pop->{state}.
foreach my $pop ( @{$pop{$state}->{$popac}}) {
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";
if ($popnum == $o_popnum) {
$text .= "opt(what.form.popnum, \"$o_popnum\", \"$poptext\");\n";
if ($popnum == $o_popnum) {
@@
-467,7
+467,7
@@
END
$text .= qq!<OPTION VALUE="!. $pop->{popnum}. '"'.
( ( $popnum && $pop->{popnum} == $popnum ) ? ' SELECTED' : '' ). ">".
$pop->{city}. ', '. $pop->{state}.
$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 .= qq!</SELECT></TD></TR></TABLE>!;
}
$text .= qq!</SELECT></TD></TR></TABLE>!;