diff options
| author | ivan <ivan> | 2003-05-19 13:38:41 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-05-19 13:38:41 +0000 |
| commit | a1295d0682aa81a408abe06fcaa7c14440f6a2e2 (patch) | |
| tree | 0ede9fe45caf553f5258ba36bd4535acad8db5f4 /fs_selfservice/FS-SelfService/cgi/selfservice.cgi | |
| parent | fd9138f66cf7f3ab9557e0beebb4e2657a59e34c (diff) | |
first crack at payment processing with self-service (step two of the process)
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/selfservice.cgi')
| -rw-r--r-- | fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index 2ce2c8b6c..d43df4041 100644 --- 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 { + use Business::CreditCard; + $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"; - my $patbatch = $1; + my $paybatch = $1; process_payment( 'session_id' => $session_id, |