projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
electronic checks work in signup.cgi
[freeside.git]
/
fs_signup
/
FS-SignupClient
/
cgi
/
signup.cgi
diff --git
a/fs_signup/FS-SignupClient/cgi/signup.cgi
b/fs_signup/FS-SignupClient/cgi/signup.cgi
index
dc242bd
..
6672e60
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
4 2002-11-29 05:14:21
ivan Exp $
+# $Id: signup.cgi,v 1.3
5 2002-12-24 23:03:27
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
@@
-160,7
+160,12
@@
if ( defined $cgi->param('magic') ) {
}
$payby = $cgi->param('payby');
}
$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' );
$paydate =
$cgi->param( $payby. '_month' ). '-'. $cgi->param( $payby. '_year' );
$payname = $cgi->param( $payby. '_payname' );