return $payment->id;
}
+=head3 balance
+
+my $balance = $self->balance
+
+Return the balance (sum of amountoutstanding columns)
+
+=cut
+
+sub balance {
+ my ($self) = @_;
+ my $fines = Koha::Account::Lines->search(
+ {
+ borrowernumber => $self->{patron_id},
+ },
+ {
+ select => [ { sum => 'amountoutstanding' } ],
+ as => ['total_amountoutstanding'],
+ }
+ );
+ return $fines->count
+ ? $fines->next->get_column('total_amountoutstanding')
+ : 0;
+}
+
1;
=head1 AUTHOR
=cut
-=head3 get_balance
-
-my $balance = $self->get_balance
-
-Return the balance (sum of amountoutstanding columns)
-
-=cut
-
-sub get_balance {
- my ($self) = @_;
- my $fines = $self->search(
- {},
- {
- select => [ { sum => 'amountoutstanding' } ],
- as => ['total_amountoutstanding']
- }
- );
- return $fines->count ? $fines->next->get_column('total_amountoutstanding') : 0;
-}
-
=head3 type
=cut
}
};
-subtest 'get_balance' => sub {
+subtest 'balance' => sub {
plan tests => 2;
my $patron = $builder->build({source => 'Borrower'});
$patron = Koha::Patrons->find( $patron->{borrowernumber} );
- my $account_lines = $patron->get_account_lines;
- is( $account_lines->get_balance, 0, 'get_balance should return 0 if the patron does not have fines' );
+ my $account = $patron->account;
+ is( $account->balance, 0, 'balance should return 0 if the patron does not have fines' );
my $accountline_1 = $builder->build(
{
}
);
- my $balance = $patron->get_account_lines->get_balance;
- is( int($balance), 29, 'get_balance should return the correct value');
+ my $balance = $patron->account->balance;
+ is( int($balance), 29, 'balance should return the correct value');
$patron->delete;
};