|
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 |
- |
|
|