interchange-cvs at icdevgroup
Mar 22, 2009, 6:06 AM
Post #1 of 1
(307 views)
Permalink
|
|
interchange - heins modified lib/Vend/Payment/BusinessOnlinePayment.pm
|
|
User: heins
Date: 2009-03-22 13:06:02 GMT
Modified: lib/Vend/Payment BusinessOnlinePayment.pm
Log:
* Commit Bill Carr's changes to Business::OnlinePayment to allow extra
parameters to be passed.
Revision Changes Path
1.2 interchange/lib/Vend/Payment/BusinessOnlinePayment.pm
rev 1.2, prev_rev 1.1
Index: BusinessOnlinePayment.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/BusinessOnlinePayment.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- BusinessOnlinePayment.pm 24 Jan 2005 14:38:59 -0000 1.1
+++ BusinessOnlinePayment.pm 22 Mar 2009 13:06:02 -0000 1.2
@@ -1,7 +1,7 @@
# Vend::Payment::BusinessOnlinePayment
# Interchange wrapper for Business::OnlinePayment modules
#
-# $Id: BusinessOnlinePayment.pm,v 1.1 2005-01-24 14:38:59 jon Exp $
+# $Id: BusinessOnlinePayment.pm,v 1.2 2009-03-22 13:06:02 mheins Exp $
#
# Copyright (C) 2004 Ivan Kohler. All rights reserved.
#
@@ -241,21 +241,18 @@
$actual->{$_} =~ s/[\n\r]//g foreach keys %$actual;
- $transaction->content(
+ my %params = (
'type' => 'CC',
'login' => $user,
'password' => $secret,
'action' => $action,
- #'description'
'amount' => $amount,
'card_number' => $actual->{mv_credit_card_number},
'expiration' => $exp,
'cvv2' => $actual->{cvv2},
'order_number' => $actual->{order_id},
'auth_code' => $actual->{auth_code},
- #'recurring_billing'
'invoice_number' => $actual->{mv_order_number},
- #'customer_id'
'last_name' => $actual->{b_lname},
'first_name' => $actual->{b_fname},
'name' => $actual->{b_fname}. ' '. $actual->{b_lname},
@@ -279,6 +276,31 @@
'phone' => $actual->{phone_day},
);
+=head Extra query params
+
+=item extra_query_params "customer_id their_param=our_param"
+
+This allows you to map a passed parameter to the transaction query
+of your module. Obviously the module must support it.
+
+The parameter comes from the parameters passed to the [charge ..] tag
+or the route.
+
+The above id passes the customer_id parameter on with a key of the
+same name, while the second sets their param C<their_param> with
+C<our_param>.
+
+=cut
+
+ my @extra = split /[\s,\0]+/, $opt->{extra_query_params};
+ for (@extra) {
+ my ( $k, $v ) = split /=/, $_;
+ $k ||= $v;
+ $params{$k} = $opt->{$v} || charge_param($v);
+ }
+
+ $transaction->content(%params);
+
$transaction->submit();
my %result;
@@ -308,6 +330,27 @@
}
+=head Extra result params
+
+=item extra_result_params "transid=weird.module.name"
+
+This allows you to map a returned parameter to the payment result
+hash of Interchange.
+
+=cut
+
+ my @result_extra = split /[\s,\0]+/, $opt->{extra_result_params};
+ for (@result_extra) {
+ my ( $k, $v ) = split /=/, $_;
+ $v ||= $k;
+ if($transaction->can($v)) {
+ $result{$k} = $transaction->$v;
+ }
+ else {
+ ::logError(__PACKAGE__ . " - unsupported method %s called for result params, ignored.", $v);
+ }
+ }
+
return %result;
}
_______________________________________________
interchange-cvs mailing list
interchange-cvs [at] icdevgroup
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs
|
