[interchange-cvs] interchange - jon modified
lib/Vend/Payment/Linkpoint.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Fri May 19 10:48:48 EDT 2006
User: jon
Date: 2006-05-19 14:48:48 GMT
Modified: lib/Vend/Payment Tag: STABLE_5_4-branch Linkpoint.pm
Log:
Correct payment gateway and sub name in example.
Revision Changes Path
No revision
No revision
1.5.2.3 +7 -7 interchange/lib/Vend/Payment/Linkpoint.pm
rev 1.5.2.3, prev_rev 1.5.2.2
Index: Linkpoint.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/Linkpoint.pm,v
retrieving revision 1.5.2.2
retrieving revision 1.5.2.3
diff -u -u -r1.5.2.2 -r1.5.2.3
--- Linkpoint.pm 19 May 2006 14:06:28 -0000 1.5.2.2
+++ Linkpoint.pm 19 May 2006 14:48:48 -0000 1.5.2.3
@@ -1,8 +1,8 @@
# Vend::Payment::Linkpoint - Interchange Linkpoint support
#
-# $Id: Linkpoint.pm,v 1.5.2.2 2006/05/19 14:06:28 mheins Exp $
+# $Id: Linkpoint.pm,v 1.5.2.3 2006/05/19 14:48:48 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