[interchange-cvs] interchange - heins modified 3 files

[interchange-core@icdevgroup.org]

User:      heins
Date:      2003-02-19 04:23:04 GMT
Modified:  lib/Vend/Payment BoA.pm TCLink.pm WellsFargo.pm
Log:
* Add settle_prior type to all payment modules that claim to support
  postauth settle.

Revision  Changes    Path
1.5       +4 -3      interchange/lib/Vend/Payment/BoA.pm


rev 1.5, prev_rev 1.4
Index: BoA.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/BoA.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- BoA.pm	28 Mar 2002 15:54:20 -0000	1.4
+++ BoA.pm	19 Feb 2003 04:23:03 -0000	1.5
@@ -1,6 +1,6 @@
 # Vend::Payment::BoA - Interchange BoA support
 #
-# $Id: BoA.pm,v 1.4 2002/03/28 15:54:20 jon Exp $
+# $Id: BoA.pm,v 1.5 2003/02/19 04:23:03 mheins Exp $
 #
 # Copyright (C) 1999-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -33,7 +33,7 @@
 
 =head1 Interchange BoA Support
 
-Vend::Payment::BoA $Revision: 1.4 $
+Vend::Payment::BoA $Revision: 1.5 $
 
 =head1 SYNOPSIS
 
@@ -347,7 +347,8 @@
 		sale		 		=> 'sale',
 		return				=> 'return',
 		mauthreturn			=> 'return',
-		settle      			=> 'settle'
+		settle      		=> 'settle'
+		settle_prior      	=> 'settle'
 	);
 
     my $transtype = $opt->{transaction} ||



1.2       +3 -2      interchange/lib/Vend/Payment/TCLink.pm


rev 1.2, prev_rev 1.1
Index: TCLink.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/TCLink.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- TCLink.pm	24 Jul 2002 15:36:05 -0000	1.1
+++ TCLink.pm	19 Feb 2003 04:23:03 -0000	1.2
@@ -1,6 +1,6 @@
 # Vend::Payment::TCLink - Interchange TrustCommerce TCLink support
 #
-# $Id: TCLink.pm,v 1.1 2002/07/24 15:36:05 kwalsh Exp $
+# $Id: TCLink.pm,v 1.2 2003/02/19 04:23:03 mheins Exp $
 #
 # Copyright (C) 2002 TrustCommerce <developer@trustcommerce.com>
 #
@@ -30,7 +30,7 @@
 
 =head1 Interchange TrustCommerce Support
 
-Vend::Payment::TCLink $Revision: 1.1 $
+Vend::Payment::TCLink $Revision: 1.2 $
 
 =head1 SYNOPSIS
 
@@ -290,6 +290,7 @@
 		return			=>	'credit',
 		sale	 		=>	'sale',
 		settle 			=>	'postauth',
+		settle_prior 	=>	'postauth',
 	);
 	
 	if (defined $type_map{$transtype}) {



1.4       +5 -4      interchange/lib/Vend/Payment/WellsFargo.pm


rev 1.4, prev_rev 1.3
Index: WellsFargo.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/WellsFargo.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- WellsFargo.pm	18 Nov 2002 16:55:15 -0000	1.3
+++ WellsFargo.pm	19 Feb 2003 04:23:03 -0000	1.4
@@ -1,6 +1,6 @@
 # Vend::Payment::WellsFargo - Interchange WellsFargo support
 #
-# $Id: WellsFargo.pm,v 1.3 2002/11/18 16:55:15 mheins Exp $
+# $Id: WellsFargo.pm,v 1.4 2003/02/19 04:23:03 mheins Exp $
 #
 # Copyright (C) 1999-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -33,7 +33,7 @@
 
 =head1 Interchange WellsFargo Support
 
-Vend::Payment::WellsFargo $Revision: 1.3 $
+Vend::Payment::WellsFargo $Revision: 1.4 $
 
 =head1 SYNOPSIS
 
@@ -382,11 +382,12 @@
 		auth		 		=> 'authorize',
 		authorize		 	=> 'authorize',
 		mauthonly			=> 'authorize',
-		mauthcapture 			=> 'sale',
+		mauthcapture 		=> 'sale',
 		sale		 		=> 'sale',
 		return				=> 'return',
 		mauthreturn			=> 'return',
-		settle      			=> 'settle'
+		settle      		=> 'settle'
+		settle_prior      	=> 'settle'
 	);
 
     my $transtype = $opt->{transaction} ||