[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