[interchange-cvs] interchange - jon modified
lib/Vend/Payment/Linkpoint.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Fri May 19 10:46:52 EDT 2006
User: jon
Date: 2006-05-19 14:46:52 GMT
Modified: lib/Vend/Payment Linkpoint.pm
Log:
Correct payment gateway and sub name in example.
Revision Changes Path
1.8 +7 -7 interchange/lib/Vend/Payment/Linkpoint.pm
rev 1.8, prev_rev 1.7
Index: Linkpoint.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/Linkpoint.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -u -r1.7 -r1.8
--- Linkpoint.pm 19 May 2006 14:05:13 -0000 1.7
+++ Linkpoint.pm 19 May 2006 14:46:52 -0000 1.8
@@ -1,8 +1,8 @@
# Vend::Payment::Linkpoint - Interchange Linkpoint support
#
-# $Id: Linkpoint.pm,v 1.7 2006/05/19 14:05:13 mheins Exp $
+# $Id: Linkpoint.pm,v 1.8 2006/05/19 14:46:52 jon Exp $
#
-# Copyright (C) 2002-2005 Interchange Development Group
+# Copyright (C) 2002-2006 Interchange Development Group
# Copyright (C) 2002 Stefan Hornburg (Racke) <racke at linuxia.de>
#
# This program is free software; you can redistribute it and/or modify
@@ -123,13 +123,13 @@
orders that fail the AVS check and never get logged in your system!
Add the parameters like this:
-
- Route signio check_sub avs_check
+
+ Route linkpoint check_sub avs_check
This is a matching sample subroutine you could put in interchange.cfg:
GlobalSub <<EOR
- sub link_avs_check {
+ sub avs_check {
my ($result) = @_;
my $avs = $result->{r_avs};
my ($addr, $zip) = split //, $avs;
@@ -138,8 +138,8 @@
$result->{MStatus} = 'failure';
$result->{r_error} = $result->{MErrMsg} = "The billing address you entered does not match the cardholder's billing address";
return 0;
- }
- EOR
+ }
+ EOR
That would work equally well as a Sub in catalog.cfg. It will succeed if
either the address or zip is 'Y', or if both are unknown. If it fails,
More information about the interchange-cvs
mailing list