Lines 73-78
use C4::Suggestions;
Link Here
|
73 |
use C4::Koha; |
73 |
use C4::Koha; |
74 |
|
74 |
|
75 |
use Koha::Acquisition::Booksellers; |
75 |
use Koha::Acquisition::Booksellers; |
|
|
76 |
use Koha::Acquisition::Currencies; |
76 |
use Koha::Acquisition::Orders; |
77 |
use Koha::Acquisition::Orders; |
77 |
use Koha::DateUtils qw( dt_from_string ); |
78 |
use Koha::DateUtils qw( dt_from_string ); |
78 |
use Koha::ItemTypes; |
79 |
use Koha::ItemTypes; |
Lines 112-117
unless ( $results and @$results) {
Link Here
|
112 |
# prepare the form for receiving |
113 |
# prepare the form for receiving |
113 |
my $order = $results->[0]; |
114 |
my $order = $results->[0]; |
114 |
my $basket = Koha::Acquisition::Orders->find( $ordernumber )->basket; |
115 |
my $basket = Koha::Acquisition::Orders->find( $ordernumber )->basket; |
|
|
116 |
my $active_currency = Koha::Acquisition::Currencies->get_active; |
115 |
|
117 |
|
116 |
# Check if ACQ framework exists |
118 |
# Check if ACQ framework exists |
117 |
my $acq_fw = GetMarcStructure( 1, 'ACQ', { unsafe => 1 } ); |
119 |
my $acq_fw = GetMarcStructure( 1, 'ACQ', { unsafe => 1 } ); |
Lines 203-208
$template->param(
Link Here
|
203 |
booksellerid => $order->{'booksellerid'}, |
205 |
booksellerid => $order->{'booksellerid'}, |
204 |
freight => $freight, |
206 |
freight => $freight, |
205 |
name => $bookseller->name, |
207 |
name => $bookseller->name, |
|
|
208 |
cur_active_sym => $active_currency->symbol, |
209 |
cur_active => $active_currency->currency, |
210 |
listincgst => $bookseller->listincgst, |
211 |
invoiceincgst => $bookseller->invoiceincgst, |
206 |
title => $order->{'title'}, |
212 |
title => $order->{'title'}, |
207 |
author => $order->{'author'}, |
213 |
author => $order->{'author'}, |
208 |
copyrightdate => $order->{'copyrightdate'}, |
214 |
copyrightdate => $order->{'copyrightdate'}, |