=cut
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
my $patron = Koha::Patrons->find( $budget->{budget_owner_id} );
if ( $patron ) {
- # FIXME should pass the entire object into budget_owner
- $budget->{budget_owner_firstname} = $patron->firstname;
- $budget->{budget_owner_surname} = $patron->surname;
- $budget->{budget_owner_borrowernumber} = $patron->borrowernumber;
+ $budget->{budget_owner} = $patron;
}
if ( !defined $budget->{budget_amount} ) {
$budget->{budget_amount} = 0;
}
-
- $budget->{'budget_ordered'} = GetBudgetOrdered( $budget->{'budget_id'} );
- $budget->{'budget_spent'} = GetBudgetSpent( $budget->{'budget_id'} );
if ( !defined $budget->{budget_spent} ) {
$budget->{budget_spent} = 0;
}