diff options
| -rw-r--r-- | LinkPoint.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LinkPoint.pm b/LinkPoint.pm index 21ed89d..11a3c52 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,6 +1,6 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.11 2004-06-24 14:50:53 ivan Exp $ +# $Id: LinkPoint.pm,v 1.12 2004-06-24 14:53:35 ivan Exp $ use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); @@ -137,7 +137,7 @@ sub submit { cardNumber => 'card_number', cardExpMonth => \$month, cardExpYear => \$year, - chargetotal => \( $self->amount ), + chargetotal => 'amount', ); my $lperl = new LPPERL; |