[interchange-cvs] interchange - jon modified lib/Vend/Payment/Signio.pm

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Fri Feb 14 16:42:00 2003


User:      jon
Date:      2003-02-14 21:41:18 GMT
Modified:  lib/Vend/Payment Signio.pm
Log:
Add COMMENT1 and COMMENT2 to Verisign queries. These map to values
comment1 and comment2 by default in Payment.pm, but can be remapped.

Also put SHIPTOZIP in the varmap for simplicity, but same function.

Revision  Changes    Path
2.6       +8 -6      interchange/lib/Vend/Payment/Signio.pm


rev 2.6, prev_rev 2.5
Index: Signio.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/Signio.pm,v
retrieving revision 2.5
retrieving revision 2.6
diff -u -u -r2.5 -r2.6
--- Signio.pm	21 Jan 2003 03:51:10 -0000	2.5
+++ Signio.pm	14 Feb 2003 21:41:18 -0000	2.6
@@ -1,6 +1,6 @@
 # Vend::Payment::Signio - Interchange support for Signio/Verisign Payflow Pro
 #
-# $Id: Signio.pm,v 2.5 2003/01/21 03:51:10 jon Exp $
+# $Id: Signio.pm,v 2.6 2003/02/14 21:41:18 jon Exp $
 #
 # Copyright (C) 1999-2003 Red Hat, Inc. and Interchange Development Group
 #
@@ -23,7 +23,7 @@
 
 =head1 Interchange support for Signio/Verisign Payflow Pro
 
-Vend::Payment::Signio $Revision: 2.5 $
+Vend::Payment::Signio $Revision: 2.6 $
 
 =head1 SYNOPSIS
 
@@ -445,15 +445,17 @@
     }
 
     my %varmap = ( qw/
-                            ACCT     mv_credit_card_number
-                            ZIP      b_zip
-                            STREET   b_address
+						ACCT		mv_credit_card_number
+						ZIP			b_zip
+						STREET		b_address
+						SHIPTOZIP	zip
+						COMMENT1	comment1
+						COMMENT2	comment2
         /
     );
 
     my %query = (
                     AMT         => $amount,
-                    SHIPTOZIP   => $actual{zip},
                     EXPDATE     => $exp,
                     TENDER      => 'C',
                     PWD         => $secret,