[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;