Lines 45-50
use C4::Output qw( output_html_with_http_headers );
Link Here
|
45 |
use CGI qw ( -utf8 ); |
45 |
use CGI qw ( -utf8 ); |
46 |
|
46 |
|
47 |
use C4::Acquisition qw( GetBasket GetBasketsInfosByBookseller CanUserManageBasket GetBasketgroup ); |
47 |
use C4::Acquisition qw( GetBasket GetBasketsInfosByBookseller CanUserManageBasket GetBasketgroup ); |
|
|
48 |
use C4::Budgets qw( GetBudgetHierarchy CanUserUseBudget ); |
48 |
|
49 |
|
49 |
use Koha::Acquisition::Booksellers; |
50 |
use Koha::Acquisition::Booksellers; |
50 |
use Koha::Patrons; |
51 |
use Koha::Patrons; |
Lines 110-121
if ($booksellerid) {
Link Here
|
110 |
basketcount => $vendor->baskets->count, |
111 |
basketcount => $vendor->baskets->count, |
111 |
subscriptioncount => $vendor->subscriptions->count, |
112 |
subscriptioncount => $vendor->subscriptions->count, |
112 |
}; |
113 |
}; |
|
|
114 |
|
115 |
} |
116 |
my $budgets = GetBudgetHierarchy; |
117 |
my $has_budgets = 0; |
118 |
foreach my $r ( @{$budgets} ) { |
119 |
next unless ( CanUserUseBudget( $loggedinuser, $r, $userflags ) ); |
120 |
|
121 |
$has_budgets = 1; |
122 |
last; |
113 |
} |
123 |
} |
114 |
|
124 |
|
115 |
$template->param( |
125 |
$template->param( |
116 |
loop_suppliers => $loop_suppliers, |
126 |
loop_suppliers => $loop_suppliers, |
117 |
booksellerid => $booksellerid, |
127 |
booksellerid => $booksellerid, |
118 |
count => $vendor ? 1 : 0, |
128 |
count => $vendor ? 1 : 0, |
|
|
129 |
has_budgets => $has_budgets, |
119 |
); |
130 |
); |
120 |
$template->{VARS}->{'allbaskets'} = $allbaskets; |
131 |
$template->{VARS}->{'allbaskets'} = $allbaskets; |
121 |
|
132 |
|
122 |
- |
|
|