From c6e8088db4f8c67606c7566d3c633319bffde4c0 Mon Sep 17 00:00:00 2001
From: Darrell Ulm <darrellulm@kohavmware>
Date: Wed, 22 Jul 2009 10:06:53 -0400
Subject: [PATCH] Bug#: 3230 Penny fine, needs fixed, just a round off. Please

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 C4/Members.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C4/Members.pm b/C4/Members.pm
index a76e078a71..b2ce9162c0 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -1129,9 +1129,9 @@ sub GetMemberAccountRecords {
 	        $data->{title} = $biblio->{title};
         $acctlines[$numlines] = $data;
         $numlines++;
-        $total += int(100 * $data->{'amountoutstanding'}); # convert float to integer to avoid round-off errors
+        $total += int(1000 * $data->{'amountoutstanding'}); # convert float to integer to avoid round-off errors
     }
-    $total /= 100;
+    $total /= 1000;
     $sth->finish;
     return ( $total, \@acctlines,$numlines);
 }
-- 
2.39.5