From fa4e25c93c966a51d68b1f26d89e6e2ae9f9e0a9 Mon Sep 17 00:00:00 2001
From: Rodolphe Quiedeville <rodolphe@quiedeville.org>
Date: Mon, 23 Dec 2002 01:32:23 +0000
Subject: [PATCH] *** empty log message ***

---
 scripts/count-dons.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scripts/count-dons.pl b/scripts/count-dons.pl
index 5e13d72ec35..cb7391f1e0f 100755
--- a/scripts/count-dons.pl
+++ b/scripts/count-dons.pl
@@ -21,9 +21,10 @@
 #
 use DBI;
 
-my $dbh = DBI->connect($ARGV[1]) || die $DBI::errstr ;
+my $dbh = DBI->connect($ARGV[2]) || die $DBI::errstr ;
 
-my $sql = 'SELECT sum(amount) FROM llx_don WHERE fk_statut = ' .$ARGV[0];
+my $sql = 'SELECT sum(amount) FROM llx_don';
+$sql .= ' WHERE fk_statut = ' .$ARGV[1].' AND fk_don_projet = '.$ARGV[0];
 
 my $sth = $dbh->prepare("$sql") || die $dbh->errstr ;
 $sth->execute;