View | Details | Raw Unified | Return to bug 40066
Collapse All | Expand All

(-)a/acqui/booksellers.pl (-1 / +11 lines)
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 GetBudget 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
- 

Return to bug 40066