[open-ils-commits] r18596 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (gmc)

[svn at svn.open-ils.org]

Author: gmc
Date: 2010-11-03 16:30:36 -0400 (Wed, 03 Nov 2010)
New Revision: 18596

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


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-11-03 20:30:32 UTC (rev 18595)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-11-03 20:30:36 UTC (rev 18596)
@@ -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(