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