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