From ca0310b4801561d08fcc4bbf75f0d5fa39b83f1a Mon Sep 17 00:00:00 2001 From: gmc Date: Wed, 3 Nov 2010 20:30:36 +0000 Subject: [PATCH] blimey git-svn-id: svn://svn.open-ils.org/ILS/trunk@18596 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm index 6b5777f4fd..33f3eecf75 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm @@ -768,7 +768,7 @@ sub fund_exceeds_balance_percent { 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( -- 2.11.0