Lines 65-70
use C4::Biblio;
Link Here
|
65 |
use C4::Auth; |
65 |
use C4::Auth; |
66 |
use C4::Output; |
66 |
use C4::Output; |
67 |
use C4::Koha; |
67 |
use C4::Koha; |
|
|
68 |
use C4::Members qw/ GetMember /; |
69 |
use C4::Budgets qw/ GetBudgetHierarchy /; |
68 |
|
70 |
|
69 |
my $input = new CGI; |
71 |
my $input = new CGI; |
70 |
|
72 |
|
Lines 121-130
foreach my $result ( @{$marcresults} ) {
Link Here
|
121 |
|
123 |
|
122 |
} |
124 |
} |
123 |
|
125 |
|
|
|
126 |
my $borrower= GetMember('borrowernumber' => $loggedinuser); |
127 |
my $budgets = GetBudgetHierarchy(q{},$borrower->{branchcode},$borrower->{borrowernumber}); |
128 |
my $has_budgets = 0; |
129 |
foreach my $r (@{$budgets}) { |
130 |
if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) { |
131 |
next; |
132 |
} |
133 |
$has_budgets = 1; |
134 |
last; |
135 |
} |
136 |
|
124 |
$template->param( |
137 |
$template->param( |
|
|
138 |
has_budgets => $has_budgets, |
125 |
basketno => $basketno, |
139 |
basketno => $basketno, |
126 |
booksellerid => $bookseller->{'id'}, |
140 |
booksellerid => $bookseller->{'id'}, |
127 |
name => $bookseller->{'name'}, |
141 |
name => $bookseller->{'name'}, |
128 |
resultsloop => \@results, |
142 |
resultsloop => \@results, |
129 |
total => $total_hits, |
143 |
total => $total_hits, |
130 |
query => $query, |
144 |
query => $query, |