projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
first crack at payment processing with self-service (step two of the process)
[freeside.git]
/
fs_selfservice
/
FS-SelfService
/
cgi
/
selfservice.cgi
diff --git
a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
index
2ce2c8b
..
d43df40
100644
(file)
--- a/
fs_selfservice/FS-SelfService/cgi/selfservice.cgi
+++ b/
fs_selfservice/FS-SelfService/cgi/selfservice.cgi
@@
-96,6
+96,8
@@
sub make_payment {
sub process_payment {
sub process_payment {
+ use Business::CreditCard;
+
$cgi->param('amount') =~ /^\s*(\d+(\.\d{2})?)\s*$/
or die "illegal amount"; #!!!
my $amount = $1;
$cgi->param('amount') =~ /^\s*(\d+(\.\d{2})?)\s*$/
or die "illegal amount"; #!!!
my $amount = $1;
@@
-143,7
+145,7
@@
sub process_payment {
$auto = 1 if $cgi->param('auto');
$cgi->param('paybatch') =~ /^([\w\-\.]+)$/ or die "illegal paybatch";
$auto = 1 if $cgi->param('auto');
$cgi->param('paybatch') =~ /^([\w\-\.]+)$/ or die "illegal paybatch";
- my $pa
t
batch = $1;
+ my $pa
y
batch = $1;
process_payment(
'session_id' => $session_id,
process_payment(
'session_id' => $session_id,