@@ -, +, @@ --- acqui/neworderbiblio.pl | 18 ++++++++++++++++-- .../en/includes/acquisitions-add-to-basket.inc | 2 +- 2 files changed, 17 insertions(+), 3 deletions(-) --- a/acqui/neworderbiblio.pl +++ a/acqui/neworderbiblio.pl @@ -65,6 +65,8 @@ use C4::Biblio; use C4::Auth; use C4::Output; use C4::Koha; +use C4::Members qw/ GetMember /; +use C4::Budgets qw/ GetBudgetHierarchy /; my $input = new CGI; @@ -121,10 +123,22 @@ foreach my $result ( @{$marcresults} ) { } +my $borrower= GetMember('borrowernumber' => $loggedinuser); +my $budgets = GetBudgetHierarchy(q{},$borrower->{branchcode},$borrower->{borrowernumber}); +my $has_budgets = 0; +foreach my $r (@{$budgets}) { + if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) { + next; + } + $has_budgets = 1; + last; +} + $template->param( + has_budgets => $has_budgets, basketno => $basketno, - booksellerid => $bookseller->{'id'}, - name => $bookseller->{'name'}, + booksellerid => $bookseller->{'id'}, + name => $bookseller->{'name'}, resultsloop => \@results, total => $total_hits, query => $query, --- a/koha-tmpl/intranet-tmpl/prog/en/includes/acquisitions-add-to-basket.inc +++ a/koha-tmpl/intranet-tmpl/prog/en/includes/acquisitions-add-to-basket.inc @@ -15,4 +15,4 @@ [% ELSE %] You can't create any orders unless you first define a budget and a fund. [% END %] - + --