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);
$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;