[Koha-cvs] koha/acqui acqui-home.pl

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Henri-Damien LAURENT <hdl>      07/05/28 15:28:28

Modified files:
        acqui          : acqui-home.pl 

Log message:
        Adding startdate and enddate parameters to GetBookfundBreakdown call.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/acqui-home.pl?cvsroot=koha&r1=1.20&r2=1.21

Patches:
Index: acqui-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/acqui-home.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- acqui-home.pl       25 Apr 2007 08:40:51 -0000      1.20
+++ acqui-home.pl       28 May 2007 15:28:28 -0000      1.21
@@ -15,7 +15,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: acqui-home.pl,v 1.20 2007/04/25 08:40:51 hdl Exp $
+# $Id: acqui-home.pl,v 1.21 2007/05/28 15:28:28 hdl Exp $
 
 
 =head1 NAME
@@ -78,7 +78,7 @@
 my @loop_budget = ();
 
 for (my $i=0; $i<$count; $i++){
-       my ($spent,$comtd)=GetBookFundBreakdown($results[$i]->{'bookfundid'});
+       my 
($spent,$comtd)=GetBookFundBreakdown($results[$i]->{'bookfundid'},$results[$i]->{'startdate'},$results[$i]->{'enddate'});
        my $avail=$results[$i]->{'budgetamount'}-($spent+$comtd);
        my %line;
        $line{bookfundname} = $results[$i]->{'bookfundname'};