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

Modified RecurringPayments.pm to prevent test failures. Module still is not fully functional in that it doesn't set payments correctly.

Browse source
This commit is contained in:
Danny Hembree 2009-12-06 23:19:14 -08:00
parent d92e94b703
commit 63c5cfa216
2 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

0
lib/Business/PayPal/.exists Normal file
View file

30
lib/Business/PayPal/API/RecurringPayments.pm
View file

@ -27,7 +27,7 @@ sub SetCustomerBillingAgreement {
PaymentType => '', # 'ns:MerchantPullPaymentCodeType', PaymentType => '', # 'ns:MerchantPullPaymentCodeType',
BillingAgreementCustom => 'xs:string', ); BillingAgreementCustom => 'xs:string', );
my %types = ( # BillingAgreementDetails => 'ns:BillingAgreementDetailsType', my %types = ( BillingAgreementDetails => 'ns:BillingAgreementDetailsType',
ReturnURL => 'xs:string', ReturnURL => 'xs:string',
CancelURL => 'xs:string', CancelURL => 'xs:string',
LocaleCode => 'xs:string', LocaleCode => 'xs:string',
@ -59,7 +59,7 @@ sub SetCustomerBillingAgreement {
my $request = SOAP::Data my $request = SOAP::Data
->name( SetCustomerBillingAgreementRequest => \SOAP::Data->value ->name( SetCustomerBillingAgreementRequest => \SOAP::Data->value
( $API_VERSION, ( $self->version_req, #$API_VERSION,
SOAP::Data->name( SetCustomerBillingAgreementRequestDetails => \SOAP::Data->value(@scba) SOAP::Data->name( SetCustomerBillingAgreementRequestDetails => \SOAP::Data->value(@scba)
)->attr( {xmlns => $self->C_xmlns_ebay} ), )->attr( {xmlns => $self->C_xmlns_ebay} ),
) )
@ -139,31 +139,31 @@ sub CreateRecurringPaymentsProfile {
## RecurringPaymentProfileDetails ## RecurringPaymentProfileDetails
my %profiledetailstype = ( SubscriberName => 'xs:string', my %profiledetailstype = ( SubscriberName => 'xs:string',
# SubscriberShipperAddress => 'ns:AddressType', SubscriberShipperAddress => 'ns:AddressType',
BillingStartDate => 'xs:dateTime', ## MM-DD-YY BillingStartDate => 'xs:dateTime', ## MM-DD-YY
ProfileReference => 'xs:string', ); ProfileReference => 'xs:string', );
## ScheduleDetailsType ## ScheduleDetailsType
my %schedtype = ( Description => 'xs:string', my %schedtype = ( Description => 'xs:string',
# ActivationDetails => 'ns:ActivationDetailsType', ActivationDetails => 'ns:ActivationDetailsType',
# TrialPeriod => 'ns:BillingPeriodDetailsType', TrialPeriod => 'ns:BillingPeriodDetailsType',
# PaymentPeriod => 'ns:BillingPeriodDetailsType', PaymentPeriod => 'ns:BillingPeriodDetailsType',
MaxFailedPayments => 'xs:int', MaxFailedPayments => 'xs:int',
AutoBillOutstandingAmount => 'ns:AutoBillType', ); ## NoAutoBill or AddToNextBilling AutoBillOutstandingAmount => 'ns:AutoBillType', ); ## NoAutoBill or AddToNextBilling
## activation details ## activation details
my %activationdetailstype = ( InitialAmount => 'cc:BasicAmountType', my %activationdetailstype = ( InitialAmount => 'cc:BasicAmountType',
FailedInitialAmountAction => 'ns:FailedPaymentAction' ); ## ContinueOnFailure or CancelOnFailure FailedInitialAmountAction => 'ns:FailedPaymentAction', ); ## ContinueOnFailure or CancelOnFailure
## BillingPeriodDetailsType ## BillingPeriodDetailsType
my %trialbilltype = ( TrialBillingPeriod => 'ns:BillingPeriodType', my %trialbilltype = ( TrialBillingPeriod => 'xs:string', ##'ns:BillingPeriodType',
TrialBillingFrequency => 'xs:int', TrialBillingFrequency => 'xs:int',
TrialTotalBillingCycles => 'xs:int', TrialTotalBillingCycles => 'xs:int',
TrialAmount => 'cc:AmountType', TrialAmount => 'cc:AmountType',
TrialShippingAmount => 'cc:AmountType', TrialShippingAmount => 'cc:AmountType',
TrialTaxAmount => 'cc:AmountType', ); TrialTaxAmount => 'cc:AmountType', );
my %paymentbilltype = ( PaymentBillingPeriod => 'ns:BillingPeriodType', my %paymentbilltype = ( PaymentBillingPeriod => 'xs:string', ##'ns:BillingPeriodType',
PaymentBillingFrequency => 'xs:int', PaymentBillingFrequency => 'xs:int',
PaymentTotalBillingCycles => 'xs:int', PaymentTotalBillingCycles => 'xs:int',
PaymentAmount => 'cc:AmountType', PaymentAmount => 'cc:AmountType',
@ -191,17 +191,17 @@ sub CreateRecurringPaymentsProfile {
## credit card payer ## credit card payer
my %payerinfotype = ( CCPayer => 'ns:EmailAddressType', my %payerinfotype = ( CCPayer => 'ns:EmailAddressType',
CCPayerID => 'xs:string', CCPayerID => 'ebl:UserIDType',
CCPayerStatus => 'xs:string', CCPayerStatus => 'xs:string',
CCPayerName => 'xs:string', CCPayerName => 'xs:string',
CCPayerCountry => 'xs:string', CCPayerCountry => 'xs:string',
CCPayerPhone => 'xs:string', CCPayerPhone => 'xs:string',
CCPayerBusiness => 'xs:string', CCPayerBusiness => 'xs:string',
# Address => 'ns:AddressType', CCAddress => 'xs:string',
); );
## credit card details ## credit card details
my %creditcarddetailstype = ( # CardOwner => 'ns:PayerInfoType', my %creditcarddetailstype = ( CardOwner => 'ns:PayerInfoType',
CreditCardType => 'ebl:CreditCardType', ## Visa, MasterCard, Discover, Amex, Switch, Solo CreditCardType => 'ebl:CreditCardType', ## Visa, MasterCard, Discover, Amex, Switch, Solo
CreditCardNumber => 'xs:string', CreditCardNumber => 'xs:string',
ExpMonth => 'xs:int', ExpMonth => 'xs:int',
@ -209,7 +209,7 @@ sub CreateRecurringPaymentsProfile {
CVV2 => 'xs:string', CVV2 => 'xs:string',
StartMonth => 'xs:string', StartMonth => 'xs:string',
StartYear => 'xs:string', StartYear => 'xs:string',
IssueNumber => 'xs:string', ); IssueNumber => 'xs:int', );
## this gets pushed onto scheduledetails ## this gets pushed onto scheduledetails
my @activationdetailstype = (); my @activationdetailstype = ();
@ -285,8 +285,8 @@ sub CreateRecurringPaymentsProfile {
my $request = SOAP::Data->name my $request = SOAP::Data->name
( CreateRecurringPaymentsProfileRequest => \SOAP::Data->value ( CreateRecurringPaymentsProfileRequest => \SOAP::Data->value
( $API_VERSION, # ( $API_VERSION,
# ( $self->version_req, ( $self->version_req,
SOAP::Data->name( CreateRecurringPaymentsProfileRequestDetails => \SOAP::Data->value(@crpprd) SOAP::Data->name( CreateRecurringPaymentsProfileRequestDetails => \SOAP::Data->value(@crpprd)
)->attr( {xmlns => $self->C_xmlns_ebay} ) )->attr( {xmlns => $self->C_xmlns_ebay} )
) )