[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/acqui acqui-home.pl
From: |
Mason James |
Subject: |
[Koha-cvs] koha/acqui acqui-home.pl |
Date: |
Wed, 07 Jun 2006 02:22:12 +0000 |
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;
- [Koha-cvs] koha/acqui acqui-home.pl,
Mason James <=