From 64714b3e4e50fc336eb7cd9221e00be685d8cab6 Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 24 Jun 2004 14:55:12 +0000 Subject: [PATCH] and fix cvv2 and --- LinkPoint.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/LinkPoint.pm b/LinkPoint.pm index 6943ba6..bde5543 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,6 +1,6 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.13 2004-06-24 14:54:31 ivan Exp $ +# $Id: LinkPoint.pm,v 1.14 2004-06-24 14:55:12 ivan Exp $ use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); @@ -155,9 +155,9 @@ sub submit { $post_data{'order_type'} = $content{action}; - if ( $self->cvv2 ) { + if ( $content{'cvv2'} ) { $post_data{cvmindicator} = 'provided'; - $post_data{cvmvalue} = $self->cvv2; + $post_data{cvmvalue} = $content{'cvv2'}; } warn "$_ => $post_data{$_}\n" foreach keys %post_data; -- 2.11.0