[Koha-cvs] koha/acqui basket.pl

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Mason James <sushi>     06/06/07 03:30:44

Modified files:
        acqui          : basket.pl 

Log message:
        Merging Katipo changes.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/basket.pl?cvsroot=koha&r1=1.31&r2=1.32

Patches:
Index: basket.pl
===================================================================
RCS file: /sources/koha/koha/acqui/basket.pl,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- basket.pl   7 Jun 2006 03:25:01 -0000       1.31
+++ basket.pl   7 Jun 2006 03:30:44 -0000       1.32
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: basket.pl,v 1.31 2006/06/07 03:25:01 sushi Exp $
+# $Id: basket.pl,v 1.32 2006/06/07 03:30:44 sushi Exp $
 
 #script to show display basket of orders
 #written by address@hidden 24/2/2000
@@ -82,6 +82,8 @@
 my $sub_total;      # total of line totals
 my $gist;           # GST
 my $grand_total;    # $subttotal + $gist
+my $toggle = 0;
+
 
 # my $line_total_est; # total of each line
 my $sub_total_est;      # total of line totals
@@ -100,6 +102,14 @@
     $sub_total += $line_total;
     $qty_total += $results[$i]->{'quantity'};
     my %line;
+   if ( $toggle == 0 ) {
+        $line{color} = '#EEEEEE';
+        $toggle = 1;
+    }
+    else {
+        $line{color} = 'white';
+        $toggle = 0;
+    }
     $line{ordernumber}      = $results[$i]->{'ordernumber'};
     $line{publishercode}    = $results[$i]->{'publishercode'};
     $line{isbn}             = $results[$i]->{'isbn'};