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

(-)a/acqui/basket.pl (-1 / +1 lines)
Lines 95-101 my $rs = $schema->resultset('VendorEdiAccount')->search( Link Here
95
    { vendor_id => $booksellerid, } );
95
    { vendor_id => $booksellerid, } );
96
$template->param( ediaccount => ($rs->count > 0));
96
$template->param( ediaccount => ($rs->count > 0));
97
97
98
unless (CanUserManageBasket($loggedinuser, $basket, $userflags)) {
98
unless (CanUserManageBasket($logged_in_patron->unblessed, $basket, $userflags)) {
99
    $template->param(
99
    $template->param(
100
        cannot_manage_basket => 1,
100
        cannot_manage_basket => 1,
101
        basketno => $basketno,
101
        basketno => $basketno,
(-)a/acqui/booksellers.pl (-8 / +3 lines)
Lines 96-107 if ( $supplier_count == 1 ) { Link Here
96
    );
96
    );
97
}
97
}
98
98
99
my $uid;
99
# FIXME Should not be needed, logged in patron should be cached
100
# FIXME This script should only be accessed by a valid logged in patron
100
my $logged_in_patron = Koha::Patrons->find( $loggedinuser );
101
if ($loggedinuser) {
102
    # FIXME Should not be needed, logged in patron should be cached
103
    $uid = Koha::Patrons->find( $loggedinuser )->userid;
104
}
105
101
106
my $userenv = C4::Context::userenv;
102
my $userenv = C4::Context::userenv;
107
my $viewbaskets = C4::Context->preference('AcqViewBaskets');
103
my $viewbaskets = C4::Context->preference('AcqViewBaskets');
Lines 111-117 my $userbranch = $userenv->{branch}; Link Here
111
my $budgets = GetBudgetHierarchy;
107
my $budgets = GetBudgetHierarchy;
112
my $has_budgets = 0;
108
my $has_budgets = 0;
113
foreach my $r (@{$budgets}) {
109
foreach my $r (@{$budgets}) {
114
    next unless (CanUserUseBudget($loggedinuser, $r, $userflags));
110
    next unless (CanUserUseBudget($logged_in_patron->unblessed, $r, $userflags));
115
111
116
    $has_budgets = 1;
112
    $has_budgets = 1;
117
    last;
113
    last;
118
- 

Return to bug 30232