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'};