[interchange-cvs] interchange - heins modified
lib/Vend/Payment/Linkpoint.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Mon Oct 16 10:24:38 EDT 2006
User: heins
Date: 2006-10-16 14:24:38 GMT
Modified: lib/Vend/Payment Linkpoint.pm
Log:
* Only run check_sub on sale transaction types, not the POSTAUTH.
* Ideally we would pass the query to the check_sub as well, but I have
to look at this for all.
Revision Changes Path
1.10 +6 -2 interchange/lib/Vend/Payment/Linkpoint.pm
rev 1.10, prev_rev 1.9
Index: Linkpoint.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/Linkpoint.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- Linkpoint.pm 16 Aug 2006 13:34:09 -0000 1.9
+++ Linkpoint.pm 16 Oct 2006 14:24:38 -0000 1.10
@@ -1,6 +1,6 @@
# Vend::Payment::Linkpoint - Interchange Linkpoint support
#
-# $Id: Linkpoint.pm,v 1.9 2006/08/16 13:34:09 mheins Exp $
+# $Id: Linkpoint.pm,v 1.10 2006/10/16 14:24:38 mheins Exp $
#
# Copyright (C) 2002-2006 Interchange Development Group
# Copyright (C) 2002 Stefan Hornburg (Racke) <racke at linuxia.de>
@@ -337,6 +337,8 @@
$scompany =~ s/\&/ /g;
$bcompany =~ s/\&/ /g;
+ my %check_transaction = ( PREAUTH => 1, SALE => 1 );
+
my %delmap = (
POSTAUTH => [
qw(
@@ -438,7 +440,9 @@
my $approve;
if ($result{'r_approved'} eq "APPROVED") {
- if (my $check_sub_name = $opt->{check_sub} || charge_param('check_sub')) {
+ my $check_sub_name = $opt->{check_sub} || charge_param('check_sub');
+
+ if ($check_sub_name and $check_transaction{$transtype} ) {
my $check_sub = $Vend::Cfg->{Sub}{$check_sub_name}
|| $Global::GlobalSub->{$check_sub_name};
More information about the interchange-cvs
mailing list