From 1574910cb7722dbaf45b7da833e26f457ce89eda Mon Sep 17 00:00:00 2001
From: sushi <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