diff options
| author | ivan <ivan> | 2001-09-11 11:03:06 +0000 | 
|---|---|---|
| committer | ivan <ivan> | 2001-09-11 11:03:06 +0000 | 
| commit | fa0a72bfd08ec131523df6c40da96296ddadbb30 (patch) | |
| tree | 3c1f0a8e3c6990fad199871ae6245457ee4841b4 /fs_signup/FS-SignupClient | |
| parent | 34678d474a3710a38e42fd681607fe98edb56658 (diff) | |
missing quote in new template
Diffstat (limited to 'fs_signup/FS-SignupClient')
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 4 | ||||
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.html | 2 | 
2 files changed, 3 insertions, 3 deletions
| diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index 0da960579..4ed5bf7d9 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.11 2001-08-30 16:23:32 ivan Exp $ +# $Id: signup.cgi,v 1.12 2001-09-11 11:03:06 ivan Exp $  use strict;  use vars qw( @payby $cgi $locales $packages $pops $error @@ -414,7 +414,7 @@ Contact Information    <%=      foreach my $pop ( @{$pops} ) { -      $OUT .= '<OPTION VALUE='. $pop->{'popnum'}. '"'; +      $OUT .= '<OPTION VALUE="'. $pop->{'popnum'}. '"';        $OUT .= ' SELECTED' if $popnum && $pop->{'popnum'} == $popnum;        $OUT .= '>'. $pop->{'popnum'}. ': '. $pop->{'city'}. ', '.                $pop->{'state'}. ' ('. $pop->{'ac'}. ')/'. $pop->{'exch'}. "\n"; diff --git a/fs_signup/FS-SignupClient/cgi/signup.html b/fs_signup/FS-SignupClient/cgi/signup.html index bc02db230..fcedde3ab 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.html +++ b/fs_signup/FS-SignupClient/cgi/signup.html @@ -135,7 +135,7 @@ Contact Information    <%=      foreach my $pop ( @{$pops} ) { -      $OUT .= '<OPTION VALUE='. $pop->{'popnum'}. '"'; +      $OUT .= '<OPTION VALUE="'. $pop->{'popnum'}. '"';        $OUT .= ' SELECTED' if $popnum && $pop->{'popnum'} == $popnum;        $OUT .= '>'. $pop->{'popnum'}. ': '. $pop->{'city'}. ', '.                $pop->{'state'}. ' ('. $pop->{'ac'}. ')/'. $pop->{'exch'}. "\n"; | 
