|
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 |
- |
|
|