diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2018-08-01 13:34:56 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2018-08-01 13:34:56 -0700 |
| commit | 7ecaf988ed810746534bf85abde34022f2b5d6b2 (patch) | |
| tree | d3ccf53c94d71d32a12102accb3fc9644f63b56f /fs_selfservice | |
| parent | 19e18e74e91345ad51a11ceed88da273188d0943 (diff) | |
| parent | 8ebe92e270a8e035e2afee0ad99cb0c411a0201c (diff) | |
Merge branch 'master' of git.freeside.biz:/home/git/freeside
Diffstat (limited to 'fs_selfservice')
| -rw-r--r-- | fs_selfservice/FS-SelfService/cgi/card.html | 4 | ||||
| -rwxr-xr-x | fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 6 |
2 files changed, 4 insertions, 6 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/card.html b/fs_selfservice/FS-SelfService/cgi/card.html index dfe63710c..eb3e061c7 100644 --- a/fs_selfservice/FS-SelfService/cgi/card.html +++ b/fs_selfservice/FS-SelfService/cgi/card.html @@ -9,7 +9,7 @@ <TD> <SELECT NAME="month"> <%= for ( ( map "0$_", 1 .. 9 ), 10 .. 12 ) { - $OUT .= '<OPTION'. ($_ == $month ? ' SELECTED' : ''). ">$_\n"; + $OUT .= '<OPTION'. ($_ == $month ? ' SELECTED' : ''). " VALUE='$_'>$_\n"; } %> </SELECT> </TD> @@ -17,7 +17,7 @@ <TD> <SELECT NAME="year"> <%= my @a = localtime; for ( $a[5]+1900 .. $a[5]+1915 ) { - $OUT .= '<OPTION'. ($_ == $year ? ' SELECTED' : ''). ">$_\n"; + $OUT .= '<OPTION'. ($_ == $year ? ' SELECTED' : ''). " VALUE='$_'>$_\n"; } %> </SELECT> </TD> diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index 6cf264c08..3dc69e142 100755 --- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi +++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi @@ -726,9 +726,9 @@ sub payment_results { $cgi->param('paycvv') =~ /^\s*(.{0,4})\s*$/ or die "illegal CVV2"; my $paycvv = $1; - $cgi->param('month') =~ /^(\d{2})$/ or die "illegal month"; + $cgi->param('month') =~ /^(\d{2})/ or die "illegal month"; my $month = $1; - $cgi->param('year') =~ /^(\d{4})$/ or die "illegal year"; + $cgi->param('year') =~ /^(\d{4})/ or die "illegal year"; my $year = $1; $cgi->param('payname') =~ /^(.{0,80})$/ or die "illegal payname"; @@ -1325,5 +1325,3 @@ sub include { ); } - - |