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

[Mason James]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Mason James <sushi>	06/06/07 02:22:12

Modified files:
	acqui          : acqui-home.pl 

Log message:
	Merging Katipo changes.
	adding html highlight toggling.

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

Patches:
Index: acqui-home.pl
===================================================================
RCS file: /sources/koha/koha/acqui/acqui-home.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- acqui-home.pl	26 Oct 2005 09:11:02 -0000	1.6
+++ acqui-home.pl	7 Jun 2006 02:22:12 -0000	1.7
@@ -34,14 +34,23 @@
 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;