[interchange-cvs] interchange - heins modified 3 files
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Tue Feb 18 23:24:01 2003
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} ||