[Koha-patches] [PATCH] bug_7243: spelling correction

[Srdjan]

---
 C4/Circulation.pm |    4 ++--
 C4/Members.pm     |   10 +++++-----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index e23fb9e..b1831fd 100644
--- a/C4/Circulation.pm
+++ b/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 );
     }
 
diff --git a/C4/Members.pm b/C4/Members.pm
index 13079cb..99ddb65 100644
--- a/C4/Members.pm
+++ b/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.
-- 
1.7.10.4