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