[interchange-cvs] interchange - heins modified
lib/Vend/Payment/Linkpoint.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu May 12 15:38:33 EDT 2005
User: heins
Date: 2005-05-12 19:38:33 GMT
Modified: lib/Vend/Payment Linkpoint.pm
Log:
* Has anybody actually been using the Vend::Payment::Linkpoint module?
The code removed would make any order that was between NN.01 and NN.09
fail....
Revision Changes Path
1.4 +4 -4 interchange/lib/Vend/Payment/Linkpoint.pm
rev 1.4, prev_rev 1.3
Index: Linkpoint.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/Linkpoint.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- Linkpoint.pm 19 Feb 2005 04:00:14 -0000 1.3
+++ Linkpoint.pm 12 May 2005 19:38:33 -0000 1.4
@@ -1,6 +1,6 @@
# Vend::Payment::Linkpoint - Interchange Linkpoint support
#
-# $Id: Linkpoint.pm,v 1.3 2005/02/19 04:00:14 jon Exp $
+# $Id: Linkpoint.pm,v 1.4 2005/05/12 19:38:33 mheins Exp $
#
# Copyright (C) 2002 Stefan Hornburg (Racke) <racke at linuxia.de>
#
@@ -271,14 +271,14 @@
$amount = $opt->{total_cost} unless $amount;
+ ## If Linkpoint doesn't accept anything but two digits, and
+ ## you use something besides Locale foo_FOO frac_digits 2
+ ## you might break here
if(! $amount) {
$amount = Vend::Interpolate::total_cost();
$amount = Vend::Util::round_to_frac_digits($amount,$precision);
}
- $amount =~ s/\D//g;
-
- $amount = int ($amount / 100) . '.' . ($amount % 100);
$shipping = Vend::Interpolate::tag_shipping();
$subtotal = Vend::Interpolate::subtotal();
$salestax = Vend::Interpolate::salestax();
More information about the interchange-cvs
mailing list