From 1574910cb7722dbaf45b7da833e26f457ce89eda Mon Sep 17 00:00:00 2001 From: sushi Date: Wed, 7 Jun 2006 02:22:12 +0000 Subject: [PATCH] Merging Katipo changes. adding html highlight toggling. --- acqui/acqui-home.pl | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/acqui/acqui-home.pl b/acqui/acqui-home.pl index 21241e0585..20082c9f34 100755 --- a/acqui/acqui-home.pl +++ b/acqui/acqui-home.pl @@ -34,14 +34,23 @@ my $totcomtd=0; my $totavail=0; my @loop_budget = (); for (my $i=0;$i<$count;$i++){ + + if ( $toggle eq 0 ) { + $toggle = 1; + } + else { + $toggle = 0; + } my ($spent,$comtd)=bookfundbreakdown($results[$i]->{'bookfundid'}); my $avail=$results[$i]->{'budgetamount'}-($spent+$comtd); my %line; + $line{bookfundname} = $results[$i]->{'bookfundname'}; $line{budgetamount} = $results[$i]->{'budgetamount'}; $line{spent} = sprintf ("%.2f", $spent); $line{comtd} = sprintf ("%.2f",$comtd); $line{avail} = sprintf ("%.2f",$avail); + $line{'toggle'} = $toggle; push @loop_budget, \%line; $total+=$results[$i]->{'budgetamount'}; $totspent+=$spent; -- 2.39.5