diff options
author | ivan <ivan> | 2002-12-24 23:03:27 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-12-24 23:03:27 +0000 |
commit | 619b551fc1f58c1bdd0a2f7c4df7783c0542cbdd (patch) | |
tree | ce7b9abfb81ca0100d885408e0327e5ddafa8d67 | |
parent | b1d4c3b5b5a05d38a4baf9c49bd7fdfb6990531d (diff) |
electronic checks work in signup.cgi
-rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index dc242bdcf..6672e605c 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.34 2002-11-29 05:14:21 ivan Exp $ +# $Id: signup.cgi,v 1.35 2002-12-24 23:03:27 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages $pops $init_data $error @@ -160,7 +160,12 @@ if ( defined $cgi->param('magic') ) { } $payby = $cgi->param('payby'); - $payinfo = $cgi->param( $payby. '_payinfo' ); + if ( $payby eq 'CHEK' ) { + #$payinfo = join('@', map { $cgi->param( $payby. "_payinfo$_" ) } (1,2) ); + $payinfo = $cgi->param('CHEK_payinfo1').'@'.$cgi->param('CHEK_payinfo2'); + } else { + $payinfo = $cgi->param( $payby. '_payinfo' ); + } $paydate = $cgi->param( $payby. '_month' ). '-'. $cgi->param( $payby. '_year' ); $payname = $cgi->param( $payby. '_payname' ); |