Attachment 42774 Details for Bug 11622 – Bug 11622 [QA Followup] - Use Koha's active currency for PayPal

[patch] Bug 11622 [QA Followup] - Use Koha's active currency for PayPal

Bug-11622-QA-Followup---Use-Kohas-active-currency-.patch (text/plain), 1.47 KB, created by Kyle M Hall (khall) on 2015-09-22 12:44:01 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Kyle M Hall (khall)

Created: 2015-09-22 12:44:01 UTC

Size: 1.47 KB

patch

obsolete

>From 27ea2ea8b43294ca4852a3810131077ccc9a93c4 Mon Sep 17 00:00:00 2001
>From: Kyle M Hall <kyle@bywatersolutions.com>
>Date: Tue, 22 Sep 2015 08:11:40 -0400
>Subject: [PATCH] Bug 11622 [QA Followup] - Use Koha's active currency for PayPal
>
>---
> opac/opac-account-pay.pl |    4 ++++
> 1 files changed, 4 insertions(+), 0 deletions(-)
>
>diff --git a/opac/opac-account-pay.pl b/opac/opac-account-pay.pl
>index 5260309..b0f67f0 100755
>--- a/opac/opac-account-pay.pl
>+++ b/opac/opac-account-pay.pl
>@@ -30,6 +30,7 @@ use URI;
> use C4::Auth;
> use C4::Output;
> use C4::Context;
>+use C4::Budgets qw(GetCurrency);
> use Koha::Database;
> 
> my $cgi = new CGI;
>@@ -57,6 +58,8 @@ my $amount_to_pay =
>   ->get_column('amountoutstanding')->sum();
> $amount_to_pay = sprintf( "%.2f", $amount_to_pay );
> 
>+my $active_currency = GetCurrency();
>+
> my $error = 0;
> if ( $payment_method eq 'paypal' ) {
>     my $ua = LWP::UserAgent->new;
>@@ -91,6 +94,7 @@ if ( $payment_method eq 'paypal' ) {
>         'BRANDNAME'                             => C4::Context->preference('LibraryName'),
>         'CANCELURL'                             => $cancel_url->as_string(),
>         'RETURNURL'                             => $return_url->as_string(),
>+        'PAYMENTREQUEST_n_CURRENCYCODE'         => $active_currency->{currency},
>         'PAYMENTREQUEST_0_AMT'                  => $amount_to_pay,
>         'PAYMENTREQUEST_0_PAYMENTACTION'        => 'Sale',
>         'PAYMENTREQUEST_0_ALLOWEDPAYMENTMETHOD' => 'InstantPaymentOnly',
>-- 
>1.7.2.5

Actions: View | Diff | Splinter Review

Attachments on bug 11622: 24753 | 24754 | 24756 | 40520 | 40521 | 40522 | 40523 | 42241 | 42351 | 42352 | 42594 | 42649 | 42702 | 42705 | 42715 | 42733 | 42774 | 42775 | 42777 | 42778 | 42842 | 42843 | 42857 | 42858 | 42859 | 42860 | 42861 | 42862 | 42863 | 42864 | 42865 | 44419 | 44420 | 44421 | 44422 | 44423 | 44424 | 44425 | 44426 | 44427 | 46143 | 46144 | 46145 | 46146 | 46147 | 46148 | 46149 | 46150 | 46151