use C4::Auth;
use C4::Acquisition;
use C4::Budgets;
-use C4::Members;
use C4::Context;
use C4::Output;
use C4::Koha;
use C4::Debug;
use Koha::Acquisition::Currencies;
+use Koha::Patrons;
my $input = new CGI;
my $dbh = C4::Context->dbh;
);
my $active_currency = Koha::Acquisition::Currencies->get_active;
-$template->param( symbol => $active_currency->symbol,
- currency => $active_currency->currency
- );
+if ( $active_currency ) {
+ $template->param( symbol => $active_currency->symbol,
+ currency => $active_currency->currency
+ );
+}
my $op = $input->param('op') || 'list';
# USED FOR PERMISSION COMPARISON LATER
my $borrower_id = $template->{VARS}->{'USER_INFO'}->{'borrowernumber'};
-my $user = C4::Members::GetMember( borrowernumber => $borrower_id );
-my $user_branchcode = $user->{'branchcode'};
$template->param(
show_mine => $show_mine,
exit;
}
$dropbox_disabled = BudgetHasChildren($budget_id);
- my $borrower = &GetMember( borrowernumber=>$budget->{budget_owner_id} );
- $budget->{budget_owner_name} = ( $borrower ? $borrower->{'firstname'} . ' ' . $borrower->{'surname'} : '' );
+ $budget->{budget_owner} = Koha::Patrons->find( $budget->{budget_owner_id} );
}
# build budget hierarchy
my @budgetusers = GetBudgetUsers($budget->{budget_id});
my @budgetusers_loop;
foreach my $borrowernumber (@budgetusers) {
- my $member = C4::Members::GetMember(
- borrowernumber => $borrowernumber);
+ my $patron = Koha::Patrons->find( $borrowernumber );
push @budgetusers_loop, {
- firstname => $member->{firstname},
- surname => $member->{surname},
+ firstname => $patron->firstname, # FIXME Should pass the patron object
+ surname => $patron->surname,
borrowernumber => $borrowernumber
};
}
);
my @budgets = @{
- GetBudgetHierarchy($$period{budget_period_id},
- C4::Context->userenv->{branchcode}, $show_mine ? $borrower_id : '')
+ GetBudgetHierarchy( $$period{budget_period_id}, undef, ( $show_mine ? $borrower_id : 0 ))
};
my $period_total = 0;
my @budgets_to_display;
foreach my $budget (@budgets) {
# PERMISSIONS
+ next unless CanUserUseBudget($borrowernumber, $budget, $staffflags);
unless(CanUserModifyBudget($borrowernumber, $budget, $staffflags)) {
$budget->{'budget_lock'} = 1;
}