use t::lib::TestBuilder;
use t::lib::Mocks;
-use C4::Members;
use Koha::Account;
use Koha::Account::Lines;
use Koha::Account::Offsets;
my $line3 = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amountoutstanding => 3 })->store();
my $line4 = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amountoutstanding => 4 })->store();
- is( $account->balance(), "10.000000", "Account balance is 10" );
+ is( $account->balance(), 10, "Account balance is 10" );
$account->pay(
{
my $line = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amountoutstanding => 42 })->store();
- is( $account->balance(), "42.000000", "Account balance is 42" );
+ is( $account->balance(), 42, "Account balance is 42" );
my $id = $account->pay(
{
}
)->store;
+ my $account = $patron->account;
+
t::lib::Mocks::mock_preference( 'HoldsInNoissuesCharge', 0 );
t::lib::Mocks::mock_preference( 'RentalsInNoissuesCharge', 0 );
t::lib::Mocks::mock_preference( 'ManInvInNoissuesCharge', 0 );
- my ( $total, $non_issues_charges, $other_charges ) =
- C4::Members::GetMemberAccountBalance( $patron->borrowernumber );
+ my ( $total, $non_issues_charges ) = ( $account->balance, $account->non_issues_charges );
+ my $other_charges = $total - $non_issues_charges;
is(
- $total,
+ $account->balance,
$res + $rent + $manual,
'Total charges should be Res + Rent + Manual'
);
t::lib::Mocks::mock_preference( 'HoldsInNoissuesCharge', 0 );
t::lib::Mocks::mock_preference( 'RentalsInNoissuesCharge', 0 );
t::lib::Mocks::mock_preference( 'ManInvInNoissuesCharge', 1 );
- ( $total, $non_issues_charges, $other_charges ) =
- C4::Members::GetMemberAccountBalance( $patron->borrowernumber );
+ ( $total, $non_issues_charges ) = ( $account->balance, $account->non_issues_charges );
+ $other_charges = $total - $non_issues_charges;
is(
$total,
$res + $rent + $manual,
t::lib::Mocks::mock_preference( 'HoldsInNoissuesCharge', 0 );
t::lib::Mocks::mock_preference( 'RentalsInNoissuesCharge', 1 );
t::lib::Mocks::mock_preference( 'ManInvInNoissuesCharge', 0 );
- ( $total, $non_issues_charges, $other_charges ) =
- C4::Members::GetMemberAccountBalance( $patron->borrowernumber );
+ ( $total, $non_issues_charges ) = ( $account->balance, $account->non_issues_charges );
+ $other_charges = $total - $non_issues_charges;
is(
$total,
$res + $rent + $manual,
t::lib::Mocks::mock_preference( 'HoldsInNoissuesCharge', 0 );
t::lib::Mocks::mock_preference( 'RentalsInNoissuesCharge', 1 );
t::lib::Mocks::mock_preference( 'ManInvInNoissuesCharge', 1 );
- ( $total, $non_issues_charges, $other_charges ) =
- C4::Members::GetMemberAccountBalance( $patron->borrowernumber );
+ ( $total, $non_issues_charges ) = ( $account->balance, $account->non_issues_charges );
+ $other_charges = $total - $non_issues_charges;
is(
$total,
$res + $rent + $manual,
t::lib::Mocks::mock_preference( 'HoldsInNoissuesCharge', 1 );
t::lib::Mocks::mock_preference( 'RentalsInNoissuesCharge', 0 );
t::lib::Mocks::mock_preference( 'ManInvInNoissuesCharge', 0 );
- ( $total, $non_issues_charges, $other_charges ) =
- C4::Members::GetMemberAccountBalance( $patron->borrowernumber );
+ ( $total, $non_issues_charges ) = ( $account->balance, $account->non_issues_charges );
+ $other_charges = $total - $non_issues_charges;
is(
$total,
$res + $rent + $manual,
t::lib::Mocks::mock_preference( 'HoldsInNoissuesCharge', 1 );
t::lib::Mocks::mock_preference( 'RentalsInNoissuesCharge', 1 );
t::lib::Mocks::mock_preference( 'ManInvInNoissuesCharge', 0 );
- ( $total, $non_issues_charges, $other_charges ) =
- C4::Members::GetMemberAccountBalance( $patron->borrowernumber );
+ ( $total, $non_issues_charges ) = ( $account->balance, $account->non_issues_charges );
+ $other_charges = $total - $non_issues_charges;
is(
$total,
$res + $rent + $manual,
t::lib::Mocks::mock_preference( 'HoldsInNoissuesCharge', 1 );
t::lib::Mocks::mock_preference( 'RentalsInNoissuesCharge', 1 );
t::lib::Mocks::mock_preference( 'ManInvInNoissuesCharge', 1 );
- ( $total, $non_issues_charges, $other_charges ) =
- C4::Members::GetMemberAccountBalance( $patron->borrowernumber );
+ ( $total, $non_issues_charges ) = ( $account->balance, $account->non_issues_charges );
+ $other_charges = $total - $non_issues_charges;
is(
$total,
$res + $rent + $manual,