[interchange-cvs] interchange - heins modified lib/Vend/Payment/Linkpoint.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Mon Oct 16 10:26:48 EDT 2006


User:      heins
Date:      2006-10-16 14:26:47 GMT
Modified:  lib/Vend/Payment Tag: STABLE_5_4-branch Linkpoint.pm
Log:
* Only run check_sub (usually AVS) on SALE and PREAUTH, not POSTAUTH.

Revision  Changes    Path
No                   revision



No                   revision



1.5.2.4   +7 -3      interchange/lib/Vend/Payment/Linkpoint.pm


rev 1.5.2.4, prev_rev 1.5.2.3
Index: Linkpoint.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/Linkpoint.pm,v
retrieving revision 1.5.2.3
retrieving revision 1.5.2.4
diff -u -r1.5.2.3 -r1.5.2.4
--- Linkpoint.pm	19 May 2006 14:48:48 -0000	1.5.2.3
+++ Linkpoint.pm	16 Oct 2006 14:26:47 -0000	1.5.2.4
@@ -1,6 +1,6 @@
 # Vend::Payment::Linkpoint - Interchange Linkpoint support
 #
-# $Id: Linkpoint.pm,v 1.5.2.3 2006/05/19 14:48:48 jon Exp $
+# $Id: Linkpoint.pm,v 1.5.2.4 2006/10/16 14:26:47 mheins Exp $
 #
 # Copyright (C) 2002-2006 Interchange Development Group
 # Copyright (C) 2002 Stefan Hornburg (Racke) <racke at linuxia.de>
@@ -132,7 +132,7 @@
 	sub avs_check {
 		my ($result) = @_;
 		my $avs = $result->{r_avs};
-		my ($addr, $zip) = split //, $avs;
+		my ($addr, $zip) = split m{}, $avs;
 		return 1 if $addr eq 'Y' or $zip eq 'Y';
 		return 1 if $addr eq 'X' and $zip eq 'X';
 		$result->{MStatus} = 'failure';
@@ -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