View | Details | Raw Unified | Return to bug 11622
Collapse All | Expand All

(-)a/opac/opac-account-pay.pl (-1 / +4 lines)
Lines 30-35 use URI; Link Here
30
use C4::Auth;
30
use C4::Auth;
31
use C4::Output;
31
use C4::Output;
32
use C4::Context;
32
use C4::Context;
33
use C4::Budgets qw(GetCurrency);
33
use Koha::Database;
34
use Koha::Database;
34
35
35
my $cgi = new CGI;
36
my $cgi = new CGI;
Lines 57-62 my $amount_to_pay = Link Here
57
  ->get_column('amountoutstanding')->sum();
58
  ->get_column('amountoutstanding')->sum();
58
$amount_to_pay = sprintf( "%.2f", $amount_to_pay );
59
$amount_to_pay = sprintf( "%.2f", $amount_to_pay );
59
60
61
my $active_currency = GetCurrency();
62
60
my $error = 0;
63
my $error = 0;
61
if ( $payment_method eq 'paypal' ) {
64
if ( $payment_method eq 'paypal' ) {
62
    my $ua = LWP::UserAgent->new;
65
    my $ua = LWP::UserAgent->new;
Lines 91-96 if ( $payment_method eq 'paypal' ) { Link Here
91
        'BRANDNAME'                             => C4::Context->preference('LibraryName'),
94
        'BRANDNAME'                             => C4::Context->preference('LibraryName'),
92
        'CANCELURL'                             => $cancel_url->as_string(),
95
        'CANCELURL'                             => $cancel_url->as_string(),
93
        'RETURNURL'                             => $return_url->as_string(),
96
        'RETURNURL'                             => $return_url->as_string(),
97
        'PAYMENTREQUEST_0_CURRENCYCODE'         => $active_currency->{currency},
94
        'PAYMENTREQUEST_0_AMT'                  => $amount_to_pay,
98
        'PAYMENTREQUEST_0_AMT'                  => $amount_to_pay,
95
        'PAYMENTREQUEST_0_PAYMENTACTION'        => 'Sale',
99
        'PAYMENTREQUEST_0_PAYMENTACTION'        => 'Sale',
96
        'PAYMENTREQUEST_0_ALLOWEDPAYMENTMETHOD' => 'InstantPaymentOnly',
100
        'PAYMENTREQUEST_0_ALLOWEDPAYMENTMETHOD' => 'InstantPaymentOnly',
97
- 

Return to bug 11622