[open-ils-commits] r18597 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Acq (gmc)

[svn at svn.open-ils.org]

Author: gmc
Date: 2010-11-03 16:31:01 -0400 (Wed, 03 Nov 2010)
New Revision: 18597

Modified:
   branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
Log:
blimey


Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-11-03 20:30:36 UTC (rev 18596)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-11-03 20:31:01 UTC (rev 18597)
@@ -768,7 +768,7 @@
 
         if ( 
             $allocations == 0 || # if no allocations were ever made, assume we have hit the stop percent
-            (($allocations - $balance + $debit_amount) / $allocations) * 100) > $fund->$method_name
+            ((($allocations - $balance + $debit_amount) / $allocations) * 100) > $fund->$method_name
         ) {
             $logger->info("fund would hit a limit: " . $fund->id . ", $balance, $debit_amount, $allocations, $method_name");
             $e->event(