[interchange-cvs] interchange - heins modified
lib/Vend/Payment/AuthorizeNet.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed Sep 10 12:58:00 EDT 2003
User: heins
Date: 2003-09-10 15:58:52 GMT
Modified: lib/Vend/Payment AuthorizeNet.pm
Log:
* Bring to "use strict", prevent use of package global variables which
could cause PreFork problems.
Revision Changes Path
2.11 +6 -2 interchange/lib/Vend/Payment/AuthorizeNet.pm
rev 2.11, prev_rev 2.10
Index: AuthorizeNet.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/AuthorizeNet.pm,v
retrieving revision 2.10
retrieving revision 2.11
diff -u -r2.10 -r2.11
--- AuthorizeNet.pm 4 Aug 2003 22:01:08 -0000 2.10
+++ AuthorizeNet.pm 10 Sep 2003 15:58:52 -0000 2.11
@@ -3,7 +3,7 @@
# Connection routine for AuthorizeNet version 3 using the 'ADC Direct Response'
# method.
#
-# $Id: AuthorizeNet.pm,v 2.10 2003/08/04 22:01:08 racke Exp $
+# $Id: AuthorizeNet.pm,v 2.11 2003/09/10 15:58:52 mheins Exp $
#
# Copyright (C) 2003 Interchange Development Group, http://www.icdevgroup.org/
# Copyright (C) 1999-2002 Red Hat, Inc.
@@ -269,10 +269,14 @@
}
package Vend::Payment;
+use strict;
+
sub authorizenet {
my ($user, $amount) = @_;
my $opt;
+ my $secret;
+
if(ref $user) {
$opt = $user;
$user = $opt->{id} || undef;
@@ -371,7 +375,7 @@
$amount = Vend::Util::round_to_frac_digits($amount,$precision);
}
- $order_id = gen_order_id($opt);
+ my $order_id = gen_order_id($opt);
#::logDebug("auth_code=$actual->{auth_code} order_id=$opt->{order_id}");
my %query = (
More information about the interchange-cvs
mailing list