|
Lines 351-364
my $patron_reason_loop = GetAuthorisedValues("OPAC_SUG");
Link Here
|
| 351 |
$template->param(patron_reason_loop=>$patron_reason_loop); |
351 |
$template->param(patron_reason_loop=>$patron_reason_loop); |
| 352 |
|
352 |
|
| 353 |
#Budgets management |
353 |
#Budgets management |
| 354 |
my $budgets = []; |
354 |
my $budgets = GetBudgets; |
| 355 |
if ($branchfilter) { |
|
|
| 356 |
my $searchbudgets = { budget_branchcode => $branchfilter }; |
| 357 |
$budgets = GetBudgets($searchbudgets); |
| 358 |
} else { |
| 359 |
$budgets = GetBudgets(undef); |
| 360 |
} |
| 361 |
|
| 362 |
my @budgets_loop; |
355 |
my @budgets_loop; |
| 363 |
foreach my $budget ( @{$budgets} ) { |
356 |
foreach my $budget ( @{$budgets} ) { |
| 364 |
next unless (CanUserUseBudget($borrowernumber, $budget, $userflags)); |
357 |
next unless (CanUserUseBudget($borrowernumber, $budget, $userflags)); |
| 365 |
- |
|
|