Lines 548-554
$template->param( patron_reason_loop => $patron_reason_loop );
Link Here
|
548 |
my $sugg_budget_loop = []; |
548 |
my $sugg_budget_loop = []; |
549 |
my $sugg_budgets = GetBudgetHierarchy(); |
549 |
my $sugg_budgets = GetBudgetHierarchy(); |
550 |
foreach my $r ( @{$sugg_budgets} ) { |
550 |
foreach my $r ( @{$sugg_budgets} ) { |
551 |
next unless ( CanUserUseBudget( $borrowernumber, $r, $userflags ) ); |
551 |
next unless ( CanUserUseBudget( $librarian->unblessed, $r, $userflags ) ); |
552 |
my $selected = ( $$suggestion_ref{budgetid} && $r->{budget_id} eq $$suggestion_ref{budgetid} ) ? 1 : 0; |
552 |
my $selected = ( $$suggestion_ref{budgetid} && $r->{budget_id} eq $$suggestion_ref{budgetid} ) ? 1 : 0; |
553 |
push @{$sugg_budget_loop}, |
553 |
push @{$sugg_budget_loop}, |
554 |
{ |
554 |
{ |
555 |
- |
|
|