From 925f689b7a03b29fbc398034079ffee48ec632de Mon Sep 17 00:00:00 2001
From: Srdjan Jankovic <srdjan@catalyst.net.nz>
Date: Wed, 7 Sep 2011 16:02:21 +1200
Subject: [PATCH] bug_4831: Use unitprice (actual cost) when totalling spent amounts for
 "All available funds", as in "Already received"

---
 C4/Budgets.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index 888b4fd..7c867e0 100644
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -304,7 +304,7 @@ sub GetBudgetSpent {
 	my ($budget_id) = @_;
 	my $dbh = C4::Context->dbh;
 	my $sth = $dbh->prepare(qq|
-        SELECT SUM(ecost *  quantity) AS sum FROM aqorders
+        SELECT SUM( COALESCE(unitprice, ecost) * quantity ) AS sum FROM aqorders
             WHERE budget_id = ? AND
             quantityreceived > 0 AND
             datecancellationprinted IS NULL
-- 
1.6.5