Lines 25-30
use C4::Auth;
Link Here
|
25 |
use C4::Context; |
25 |
use C4::Context; |
26 |
use C4::Output; |
26 |
use C4::Output; |
27 |
|
27 |
|
|
|
28 |
use Koha::Acquisition::Bookseller; |
28 |
use Koha::Acquisition::Currency; |
29 |
use Koha::Acquisition::Currency; |
29 |
use Koha::Acquisition::Currencies; |
30 |
use Koha::Acquisition::Currencies; |
30 |
|
31 |
|
Lines 94-102
if ( $op eq 'add_form' ) {
Link Here
|
94 |
# TODO rewrite the following when Koha::Acquisition::Orders will use Koha::Objects |
95 |
# TODO rewrite the following when Koha::Acquisition::Orders will use Koha::Objects |
95 |
my $schema = Koha::Database->schema; |
96 |
my $schema = Koha::Database->schema; |
96 |
my $nb_of_orders = $schema->resultset('Aqorder')->search( { currency => $currency->currency } )->count; |
97 |
my $nb_of_orders = $schema->resultset('Aqorder')->search( { currency => $currency->currency } )->count; |
|
|
98 |
my $nb_of_vendors = Koha::Acquisition::Bookseller->search( { -or => { listprice => $currency->currency, invoiceprice => $currency->currency } }); |
97 |
$template->param( |
99 |
$template->param( |
98 |
currency => $currency, |
100 |
currency => $currency, |
99 |
nb_of_orders => $nb_of_orders, |
101 |
nb_of_orders => $nb_of_orders, |
|
|
102 |
nb_of_vendors => $nb_of_vendors, |
100 |
); |
103 |
); |
101 |
} elsif ( $op eq 'delete_confirmed' ) { |
104 |
} elsif ( $op eq 'delete_confirmed' ) { |
102 |
my $currency = Koha::Acquisition::Currencies->find($currency_code); |
105 |
my $currency = Koha::Acquisition::Currencies->find($currency_code); |