NPO-Accounting/perl-business-paypal-api
7
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Added support for protection eligbility

Browse source
This commit is contained in:
Ron Phipps 2010-04-15 18:37:54 -04:00
parent 13586cff9b
commit 43547671b6
3 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/Business/PayPal/API.pm
View file

@ -4,7 +4,7 @@ use 5.008001;
use strict; use strict;
use warnings; use warnings;
use SOAP::Lite 0.67; # +trace => 'all'; use SOAP::Lite 0.710.10; # +trace => 'all';
use Carp qw(carp); use Carp qw(carp);
our $VERSION = '0.69'; our $VERSION = '0.69';
@ -22,7 +22,7 @@ sub C_api_live () { 'https://api.paypal.com/2.0/' }
sub C_api_live_3t () { 'https://api-3t.paypal.com/2.0/' } sub C_api_live_3t () { 'https://api-3t.paypal.com/2.0/' }
sub C_xmlns_pp () { 'urn:ebay:api:PayPalAPI' } sub C_xmlns_pp () { 'urn:ebay:api:PayPalAPI' }
sub C_xmlns_ebay () { 'urn:ebay:apis:eBLBaseComponents' } sub C_xmlns_ebay () { 'urn:ebay:apis:eBLBaseComponents' }
sub C_version () { '3.0' } ## 3.0 adds RecurringPayments sub C_version () { '61.0' } ## 3.0 adds RecurringPayments
## this is an inside-out object. Make sure you 'delete' additional ## this is an inside-out object. Make sure you 'delete' additional
## members in DESTROY() as you add them. ## members in DESTROY() as you add them.

10
lib/Business/PayPal/API/ExpressCheckout.pm
View file

@ -168,6 +168,7 @@ sub DoExpressCheckoutPayment {
PaymentAction => '', ## NOTA BENE! PaymentAction => '', ## NOTA BENE!
PayerID => 'ebl:UserIDType', PayerID => 'ebl:UserIDType',
currencyID => '', currencyID => '',
ReturnFMFDetails => 'xs:boolean',
); );
## PaymentDetails ## PaymentDetails
@ -278,7 +279,9 @@ sub DoExpressCheckoutPayment {
SOAP::Data->name( PaymentDetails => \SOAP::Data->value SOAP::Data->name( PaymentDetails => \SOAP::Data->value
( @payment_details )->type('ebl:PaymentDetailsType') ( @payment_details )->type('ebl:PaymentDetailsType')
->attr( {xmlns => $self->C_xmlns_ebay} ), ->attr( {xmlns => $self->C_xmlns_ebay} ),
), ); ),
SOAP::Data->name( ReturnFMFDetails => $args{ReturnFMFDetails} )
->type($types{ReturnFMFDetails})->attr( {xmlns => $self->C_xmlns_ebay} ), );
## ##
## the main request object ## the main request object
@ -319,6 +322,11 @@ sub DoExpressCheckoutPayment {
ExchangeRate => 'PaymentInfo/ExchangeRate', ExchangeRate => 'PaymentInfo/ExchangeRate',
PaymentStatus => 'PaymentInfo/PaymentStatus', PaymentStatus => 'PaymentInfo/PaymentStatus',
PendingReason => 'PaymentInfo/PendingReason', PendingReason => 'PaymentInfo/PendingReason',
AcceptFilters => 'FMFDetails/AcceptFilters',
DenyFilters => 'FMFDetails/DenyFilters',
PendingFilters => 'FMFDetails/PendingFilters',
ReportsFilters => 'FMFDetails/ReportsFilters',
ProtectionEligibility => 'PaymentInfo/ProtectionEligibility',
} ); } );
return %response; return %response;

1
lib/Business/PayPal/API/GetTransactionDetails.pm
View file

@ -82,6 +82,7 @@ sub GetTransactionDetails {
PaymentStatus => '/PaymentInfo/PaymentStatus', PaymentStatus => '/PaymentInfo/PaymentStatus',
PendingReason => '/PaymentInfo/PendingReason', PendingReason => '/PaymentInfo/PendingReason',
ReasonCode => '/PaymentInfo/ReasonCode', ReasonCode => '/PaymentInfo/ReasonCode',
ProtectionEligibility => '/PaymentInfo/ProtectionEligibility',
InvoiceID => '/PaymentItemInfo/InvoiceID', InvoiceID => '/PaymentItemInfo/InvoiceID',
Custom => '/PaymentItemInfo/Custom', Custom => '/PaymentItemInfo/Custom',