@@ -, +, @@ --- C4/Circulation.pm | 4 ++-- C4/Members.pm | 10 +++++----- 2 files changed, 7 insertions(+), 7 deletions(-) --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -771,7 +771,7 @@ sub CanBookBeIssued { # # DEBTS - my ($ballance, $non_issue_charges, $other_charges) = + my ($balance, $non_issue_charges, $other_charges) = C4::Members::GetMemberAccountBallance( $borrower->{'borrowernumber'} ); my $amountlimit = C4::Context->preference("noissuescharge"); my $allowfineoverride = C4::Context->preference("AllowFineOverride"); @@ -794,7 +794,7 @@ sub CanBookBeIssued { $needsconfirmation{DEBT} = sprintf( "%.2f", $non_issue_charges ); } } - if ($ballance > 0 && $other_charges > 0) { + if ($balance > 0 && $other_charges > 0) { $alerts{OTHER_CHARGES} = sprintf( "%.2f", $other_charges ); } --- a/C4/Members.pm +++ a/C4/Members.pm @@ -430,7 +430,7 @@ sub patronflags { my %flags; my ( $patroninformation) = @_; my $dbh=C4::Context->dbh; - my ($ballance, $owing) = GetMemberAccountBallance( $patroninformation->{'borrowernumber'}); + my ($balance, $owing) = GetMemberAccountBallance( $patroninformation->{'borrowernumber'}); if ( $owing > 0 ) { my %flaginfo; my $noissuescharge = C4::Context->preference("noissuescharge") || 5; @@ -441,10 +441,10 @@ sub patronflags { } $flags{'CHARGES'} = \%flaginfo; } - elsif ( $ballance < 0 ) { + elsif ( $balance < 0 ) { my %flaginfo; - $flaginfo{'message'} = sprintf "Patron has credit of \$%.02f", -$ballance; - $flaginfo{'amount'} = sprintf "%.02f", $ballance; + $flaginfo{'message'} = sprintf "Patron has credit of \$%.02f", -$balance; + $flaginfo{'amount'} = sprintf "%.02f", $balance; $flags{'CREDITS'} = \%flaginfo; } if ( $patroninformation->{'gonenoaddress'} @@ -1142,7 +1142,7 @@ sub GetMemberAccountRecords { =head2 GetMemberAccountBallance - ($total_ballance, $non_issue_ballance, $other_charges) = &GetMemberAccountBallance($borrowernumber); + ($total_balance, $non_issue_balance, $other_charges) = &GetMemberAccountBallance($borrowernumber); Calculates amount immediately owing by the patron - non-issue charges. Based on GetMemberAccountRecords. --