Bug#: 3230 Penny fine, needs fixed, just a round off. Please
authorDarrell Ulm <darrellulm@kohavmware>
Wed, 22 Jul 2009 14:06:53 +0000 (10:06 -0400)
committerGalen Charlton <galen.charlton@liblime.com>
Wed, 22 Jul 2009 14:17:48 +0000 (10:17 -0400)
Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
C4/Members.pm

index a76e078..b2ce916 100644 (file)
@@ -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);
 }